Salut Salut!
Voila mon code qui doit supprimer supprimer des lignes avec un pas constant. Il rassemble dans un Range (plagetot) l'ensemble des lignes concernées en partant du bas puis il les sup.
Sauf qu'il m'indique une erreur d'objet que je ne trouve pas :/
Sub supp_N_sur_N_plus_un()
Dim i, last, pas
Dim plage, plagetot As Range
pas = InputBox("choisir le pas ", "", 1)
last = [C65000].End(xlUp).Row
For i = last To 2 Step -1
plage = Rows((i - 1) & ":" & (i - pas))
If plagetot Is Nothing Then
Set plagetot = plage
Else
plagetot = Application.Union(plagetot, plage)
End If
Next
plagetot.EntireRow.Delete
End Sub
Merci pour vos aides !