Private Sub CommandButton1_Click()
Dim NomFichier As String, CheminFichier As String
Dim FichierOpen As String
Application.DisplayAlerts = False
CheminFichier = "C:\Users\barth66\Desktop\Test commandes\"
NomFichier = Dir(CheminFichier)
Do While NomFichier <> ""
FichierOpen = CheminFichier & NomFichier
Workbooks.Open FichierOpen
NomFichier = Dir
Loop
End Sub