Sub Partager()
Dim nlig&, F As Worksheet, n&, P As Range
nlig = 500 'à adapter
Set F = Feuil1 'CodeName, à adapter
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'---supprime les feuilles---
For n = Worksheets.Count To 1 Step -1
If Worksheets(n).Name <> F.Name Then Worksheets(n).Delete
Next
'---ajoute les feuilles nécessaires---
Set P = F.[A1].CurrentRegion
For n = 1 To Application.RoundUp((P.Rows.Count - 1) / nlig, 0)
With Sheets.Add(After:=Sheets(Sheets.Count))
.Name = "Campagne " & n
P.Rows(1).Copy .[A1]
P.Rows(2 + nlig * (n - 1)).Resize(nlig).Copy .[A2]
.Columns.AutoFit 'ajustement largeurs
End With
Next
With ActiveSheet.UsedRange: End With 'actualise la barre de défimement verticale de la dernière feuille
F.Activate
End Sub