Supprimer une ligne sur deux

Bonjour le forum,

J'aimerais avoir une macro qui supprime une ligne sur deux.

En effet, sur la 1ere ligne j'ai le numéro de place, le nom de l'athlète, la nation puis les points et sur la 2è ligne il n'y a que la nation. C'est cette ligne là que je voudrais supprimer.

Je joins un fichier.

D'avance je vous remercie pour votre aide

Bonjour,

Une solution à tester.

(Ctrl + w pour lancer la procédure)

Cdlt

Option Explicit
Public Sub Supprimer_lignes()
Dim Ws As Worksheet
Dim Dl As Long, i As Long
    Application.ScreenUpdating = False
    Set Ws = Worksheets("Feuil1")
    With Ws
        Dl = .Range("C" & Rows.Count).End(xlUp).Row
        For i = Dl To 4 Step -2
            Rows(i).Delete
        Next
    End With
    Set Ws = Nothing
End Sub

Bonjour Jean-Eric,

Merci pour ta réponse, c'est exactement ce que je voulais.

Bonne journée