Sub Decoupe()
Dim d As Range, r As Range, pfile$, x%, j%, ws As Worksheet
nb = InputBox("Combien de saucissons faut-il créer ?", "DECOUPAGE FICHIER")
If IsEmpty(nb) Or Not IsNumeric(nb) Then Exit Sub
Set d = ActiveSheet.UsedRange.Offset(1)
tablo1 = Feuil2.Range("A1", Feuil2.Range("IV1").End(xlToLeft)).Value
pfile = ActiveWorkbook.Path
x = d.Rows.Count
j = 1
Application.ScreenUpdating = False
For i = 0 To x Step Int(nb)
tablo2 = d.Offset(i).Resize(Int(nb)).Value
Set ws = Sheets.Add
With ws
.Range("A1").Resize(1, UBound(tablo1, 2)) = tablo1
.Range("A2").Resize(UBound(tablo2, 1), UBound(tablo2, 2)) = tablo2
Erase tablo2
.Copy
Application.DisplayAlerts = False 'attention: écrase les fichiers existants
With ActiveWorkbook
.SaveAs pfile & "\import gestes co" & j & " (Dec" & nb & ")" & ".xls"
.Close True
End With
.Delete
Application.DisplayAlerts = True
End With
j = j + 1
Next
Application.ScreenUpdating = True
End Sub