Tansfert de données

Sub Test()
FichierXL = "fiche de travail type.xls"
Chemin = ActiveDocument.Path
MesSignets = Array("AssistantePrenomNom", "AssistanteTitreFonction", "AtelierAdresse", "AtelierCP", "AtelierFaxStandard", "AtelierTelStandard", "AtelierVille", "AtelierVille1", "ClientAdresse", "ClientCP", "ClientInterlocuteurPrenomNom", "ClientRaisonSociale", "ClientVille", "DossierDateCreation", "DossierNumeroSav2000", "DossierReferenceClient", "DossierTitrePrestation", "PropositionPhraseIntro", "TcsEMail", "TcsPrenomNom", "TcsPrenomNom2", "TcsTelDirect", "TcsTitreFonction")
MesCellules = Array("", "", "", "", "", "", "", "", "D14", "G15", "L11", "E11", "C15", "", "", "", "", "", "", "", "", "", "")
Set xlApp = CreateObject("excel.application")
xlApp.Visible = False
Set Monfic = xlApp.Workbooks.Open(FileName:=Chemin & "\" & FichierXL)
'------- Boucle sur les Cellules --------
For i = 0 To UBound(MesCellules)
    If MesCellules(i) <> "" Then
        ActiveDocument.Bookmarks(MesSignets(i)).Range.Text = Monfic.sheets("DI - MES ").Range(MesCellules(i)).Value
    End If
Next
'----------------------------------------
Monfic.Close False
xlApp.Quit
Set xlApp = Nothing
End Sub