Public Sub ImportationJoueurs()
Range("A1").Select
Msg = " Sélectionne le fichiers html "
Title = " Bonjour à toi, "
Style = vbOKOnly + vbInformation
Reponse = MsgBox(Msg, Style, Title)
Dim varReturn As Variant, intloop As Integer
varReturn = Application.GetOpenFilename(, , , , True)
If TypeName(varReturn) = "Boolean" Then Exit Sub
If TypeName(varReturn) = "String" Then
Workbooks.Open CStr(varReturn)
Else
For intloop = 1 To UBound(varReturn) Step 1
Workbooks.Open CStr(varReturn(intloop))
Next intloop
Application.ScreenUpdating = False
Application.DisplayAlerts = False
End If
Windows("1 Physique.html").Activate
Columns("C:L").Select
Selection.Copy
Windows("IMPORT.xls").Activate
ActiveSheet.Paste