Supprimer 1 ligne sur 2 VBA

Bonjour,

je souhaiterais créer une boucle Macro Vba pour supprimer 1 ligne sur 2 en commençant par la ligne A3.

Pouvez vous m'aider ?

(je suis un novice d'habitude je fais via enregistrement macro mais la il y a beau coup de ligne).

Merci

Bonjour,

Teste ceci

Sub Suppr()
  Dim n%, i%
  Application.ScreenUpdating = False
    With Worksheets("Feuil1")
      n = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = n To 2 Step -2
          .Range("A" & i).EntireRow.Delete
        Next i
    End With
End Sub

Bonsoir,

Pour rajouter une information à ce qu'à donner M12 de façon non explicite

En VBA avec une boucle pour supprimer des lignes, on commence toujours par la fin pour revenir au début
sinon il y a décalage de ligne supprimée et bug

Bonne soirée

Bonsoir,

La méthode M12 ne marche pas :) cela me supprime toutes les lignes alors que je souhaites une suppression d'une ligne sur 2 ex: Ligne A3 supprimé puis A5, A7 etc etc .

Merci

Re,

Teste comme ceci alors

Sub Suppr()
  Dim n&, i&
  Application.ScreenUpdating = False
    With Worksheets("Feuil1")
      n = .Range("A" & .Rows.Count).End(xlUp).Row 'Dernière ligne remplie
       If (n Mod 2) = 0 Then 'Si la ligne est pair je rajoute une ligne
          n = n + 1 'je rajoute une ligne
       End If
        For i = n To 2 Step -2 'Je boucle de la dernière ligne à la deuxième
          .Range("A" & i).EntireRow.Delete 'je supprime la ligne
        Next i
    End With
End Sub