Sub DecouperFichier()
Dim Chemin As String, Fichier As String, Texte As String, N As Long, NFic As Long
Open Chemin & "AR 072017.csv" For Input As #1
Do While Not EOF(1)
Input #1, Texte
N = (N + 1) Mod 1048570
If N = 1 Then
NFic = NFic + 1
Close #2
Open Chemin & "AR 072017.csv" & "_" & NFic & "AR 072017.csv" For Output As #2
End If
Print #2, Texte
Loop
Close #1, #2
End Sub