Sub toto()
Dim MesFichiers, X
MesFichiers = Application.GetOpenFilename( _
FileFilter:="Fichier texte (*.txt), *.txt,Tous fichiers (*.*), *.*", _
FilterIndex:=2, Title:="Sélection fichiers (test)", MultiSelect:=True)
If VarType(MesFichiers) = vbBoolean Then
MsgBox "aucun fichier choisi"
Else
MsgBox UBound(MesFichiers) - LBound(MesFichiers) + 1 & " fichier(s) choisi(s)"
For Each X In MesFichiers
MsgBox X
Next X
End If
End Sub