[Gorfael]

Salut
Je viens de faire ça sous word :

Sub Macro1()
    Dim Str_Chemin As String
    Dim X As Integer
    Dim Fichier_En_Cours As Variant
    Dim Str_Test As String
    Dim fs, fc As Variant
    
    Str_Chemin = CurDir
    Set fs = CreateObject('Scripting.FileSystemObject')
    Set fc = fs.GetFolder(Str_Chemin).Files
    For Each Fichier_En_Cours In fc
        If Right(Fichier_En_Cours.Name, 3) = 'doc' Then
            Str_Test = Str_Test & Fichier_En_Cours.Name & vbCrLf
        End If
    Next
    MsgBox Str_Test
End Sub

Comme c'est de l'adaptation d'un exemple de l'aide de word, tout ce qui est en variant me semble nébuleux. Mais ça marche ! ! !
Si quelqu'un pouvait éclairer ma lanterne, ça m'aiderais, ayant horreur de ne pas comprendre ce que je fais et devoir l'appliquer bêtement me donne des boutons ! !
A+