Sub BoucleFichiers()
Dim Chemin As String, Fichier As String
Chemin = CurDir & "\" 'Définit le répertoire contenant les fichiers
NomPartiel = "Fichier Coronavirus S*" 'Définit le nom partiel du fichier recherché
Fichier = Dir(Chemin & NomPartiel)
Do While Len(Fichier) > 0
Workbooks.Open Filename:=Chemin & Fichier
Fichier = Dir()
Loop
End Sub