Macro pour supprimer des lignes automatiquement

Bonjour,

N'étant pas trop calé en VBA (je débute à peine), je suis à la recherche d'une macro qui me permet du supprimer les trois premières lignes et ce, quelque soit la répétition.

Je m'explique, j'ai converti un fichier PDF en CSV et toutes les pages du fichier source sont venues se mettre à la suite des unes ou autres.

Chaque page du fichier d'origine fait 51 lignes et je souhaite supprimer à chaque fois les trois premières.

Le cycle du fichier CSV fait que je dois supprimer les lignes 1 à 3, garder les lignes 4 à 51, supprimer les lignes 52 à 54 et garder les lignes 55 à 102 et ainsi de suite...... Ce mois-ci, j'ai 3 146 lignes et c'est un peu long.

Merci beaucoup par avance pour vos réponses.

Bonjour

Cordialement

Bonjour Steelband13, Dan,

Un essai:

Sub test()

Dim DernLigne As Long
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row

    For i = 1 To DernLigne Step 48
    Rows(i & ":" & i + 2).EntireRow.Delete
    Next i

End Sub

Cordialement,

Nikel,

Cela fonctionne super bien.

Merci beaucoup encore une fois.