问如何将电子邮件中的矩阵数据替换为userForm文本框中的数据？

EN

        Sheets("RECAP").Cells(Lig, 2) = cboFunction
        Sheets("RECAP").Cells(Lig, 5) = cboSexReservist
        Sheets("RECAP").Cells(Lig, 6) = cboRankReservist
        Sheets("RECAP").Cells(Lig, 7) = txtIncorporationNumberReservist
        Sheets("RECAP").Cells(Lig, 8) = txtBsnReservist
        Sheets("RECAP").Cells(Lig, 9) = txtBirthdateReservist
        Sheets("RECAP").Cells(Lig, 10) = txtAgeReservist
        Sheets("RECAP").Cells(Lig, 11) = txtBirthplaceReservist
        Sheets("RECAP").Cells(Lig, 12) = txtAddressReservist
        Sheets("RECAP").Cells(Lig, 13) = txtZipcodeReservist
        Sheets("RECAP").Cells(Lig, 15) = txtPhoneReservist
        Sheets("RECAP").Cells(Lig, 17) = txtEmailReservist
        Sheets("RECAP").Cells(Lig, 18) = txtContactReservist
        Sheets("RECAP").Cells(Lig, 19) = txtJobReservist
        Sheets("RECAP").Cells(Lig, 20) = txtEsrReservist
        Sheets("RECAP").Cells(Lig, 21) = cboLengthContractReservist
        Sheets("RECAP").Cells(Lig, 22) = txtEndEsrReservist
        Sheets("RECAP").Cells(Lig, 23) = cboSav1Reservist
        Sheets("RECAP").Cells(Lig, 24) = txtSav1CommentReservist
        Sheets("RECAP").Cells(Lig, 25) = txtRetrainingReservist
        Sheets("RECAP").Cells(Lig, 26) = txtFmaChiefReservist
        Sheets("RECAP").Cells(Lig, 27) = txtVsaReservist
        Sheets("RECAP").Cells(Lig, 28) = txtNextVsaReservist

Sub CreateEmailfromTemplate(ByVal email As String, ByVal pathToTemplate As String)
    Dim obApp As Object
    Dim NewMail As Outlook.MailItem

    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate(pathToTemplate)
    With NewMail
        .To = email
    End With
    NewMail.Display

    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

Dim obApp As Object
Dim NewMail As Outlook.MailItem

Set obApp = Outlook.Application
'Change the template file folder path according to your case
Set NewMail = obApp.CreateItemFromTemplate("\\bspp.fr\Travail\CCL1\MTMA\Groupe Adjudant de Compagnie\RESERVISTES\CORRESPONDANCE\Demande d'attestation de recyclage.msg")
With NewMail
    mailBody = .Body
End With

mailBody = Replace(mailBody, "1cl", cboRankReservist)
With NewMail
    .Body = mailBody
End With

NewMail.Display

Set obApp = Nothing
Set NewMail = Nothing

Bonjour,

J’ai l’honneur de vous demander une attestation de formation continue équipier-secouriste pour le personnel suivant : 


Groupement
1 GIS
Compagnie
20
N° incorporation
91109
Grade
1cl
...