If VarType(CeFichier) = vbBoolean Then
Exit Sub
Else
For k = 1 To UBound(Fichier)
Open Fichier(k) For Input As #k
Do While Not EOF(k)
Line Input #k, TextLine
Sheets(1).Cells(Compt, c) = TextLine
Compt = Compt + 1
If Compt = 65537 Then
c = c + 1
Compt = 1
End If
Loop
Close #k
Next
End If