Supprimer deux lignes sur trois

Bonjour à tous!

J'ai un petit souci avec mon fichier excel, je souhaite ne garder qu'une ligne sur trois (ou en supprimer deux sur trois, çà marche aussi).

Par exemple, je pars de la ligne 1, je la conserve, du coup la ligne 2 et 3 il faut qu'elles soient supprimées. La ligne 4 sera conservée, les lignes 5 et 6 seront supprimées et ainsi de suite...

Merci à celui ou celle qui pourra m'aider!

Asylum!

J'ai trouvé la solution sur le net!

Sub Efface()

Dim Lig As Integer

Lig = 1

Cells(1, 1).Select

Do While ActiveCell.Offset(Lig + 1, 0) <> ""

ActiveCell.Offset(Lig + 1, 0).EntireRow.Delete

ActiveCell.Offset(Lig, 0).EntireRow.Delete

Lig = Lig + 1

Loop

End Sub