Supprimer une ligne sur deux

Bonjour,

je souhaiterais supprimer une ligne sur deux dans mon classeur sur une certaine plage.

Voici mon code ne fonctionnant pas :

dernligne = Range("A" & Rows.Count).End(xlUp).Row

For Each i In [A672:A & dernligne]

i.Select

ActiveCell.Offset(1, 0).Select

Selection.EntireRow.Delete

Next i

Merci beaucoup par avance.

Personne ?

Bonjour

Sub Supprime()
dernligne = Range("A" & Rows.Count).End(xlUp).Row
For i = dernligne To 672 Step -2
Rows(i).EntireRow.Delete
Next i
End Sub

Cordialement

Ah oui je l'avais pas vu comme ca

Merci beaucoup !