Sub ouvrirfichiers()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
Chemin = "C:\Users\Alexandre\Desktop\Nouveau dossier (4)\"
Fichier = Dir(Chemin & "*.xlsm")
Do While Fichier <> "0. IMPORT.xlsm"
Set Wb = Workbooks.Open(Chemin & Fichier)
Call action
Wb.Close True
Set Wb = Nothing
Fichier = Dir
Loop
End Sub