MACRO

Voici mon problème, je cherche à concaténer plusieurs documents Word dans un seul.
Voici mon code :

Sub a()

Dim i As Integer
With Application.FileSearch
.LookIn = "G:\DossierChoisi"
.FileName = "*.doc"
.Execute
For i = 1 To .FoundFiles.Count
Documents.Open FileName:=.FoundFiles(i)

Selection.WholeStory
Selection.Copy

Documents(2).Activate
Selection.Paste
Documents(1).Activate
ActiveDocument.Close False

Next i

End With
End Sub

Lors du debug, à la ligne "With Application.FileSearch", il me dit que cette commande n'est pas disponible pour cette platforme, que cela veut-il dire ?

Merci de m'avoir lu, sur ce, bonne journée !

Cordialement, Marjorie.