Sub RechercheFichiers()
Dim chemin$, a(), ub As Byte, i As Byte, fichier, n&, b$()
chemin = ThisWorkbook.Path & "\" 'à adapter
a = Array("Intervention", "Rapport", "Compte") 'liste à adapter
ub = UBound(a)
fichier = Dir(chemin & "*.xlsx")
While fichier <> ""
For i = 0 To ub
If fichier Like a(i) & "*" Then
n = n + 1
ReDim Preserve b(1 To n)
b(n) = fichier 'chemin & fichier
End If
Next
fichier = Dir
Wend
If n Then [A2].Resize(n) = Application.Transpose(b) 'si n <= 65536
Range("A" & n + 2 & ":A" & Rows.Count) = ""
End Sub