Sub ouvre2()
'ouverture un !! ou !!! plusieurs !! fichiers en gardant la touche control appuyée
Dim Fichier As Variant, i&
Fichier = Application.GetOpenFilename("Excel Files (*.xl*), *.xl*", , "Ouvrir un Classeur")
If IsArray(Fichier) Then
For i = LBound(Fichier) To UBound(Fichier)
MsgBox Fichier(i)
Next
ElseIf Not IsArray(Fichier) Then
If Fichier = False Then Exit Sub
MsgBox Fichier
End If
End Sub