Supprimer une ligne définie par un indice

Bonjour tout le monde !

Je suis tout nouveau au VBA, et j'essaie de faire une macro qui trierait une série de données à partir d'une périodicité :

en gros il faut imaginer que la deuxième colonne de mon tableau a une série de chiffre croissant jusqu'à 4 qui se répète, et j'aimerais supprimer les valeurs pour les séries pour lesquelles il manque un nombre.

voila mon code pour le moment, j'ai identifié que le problème se situe au moment de supprimer la ligne avec rows

Public Sub tri()
Dim i As Integer, nbCases As Integer
i = 1
Rows("i:i").Delete

Cells(1, 1) = "ok"
i = 2
nbCases = WorksheetFunction.CountA(Range("B:B"))

While i < nbCases
    If Cells(i, 2) = 1 Then
        If Cells(i, 2) + Cells(i + 1, 2) + Cells(i + 2, 2) + Cells(i + 3, 2) = 10 Then
            i = i + 4
            Cells(i, 3) = "ici"
        Else
            i = i + 1
            Rows("i:i").Delete shift:=xlUp

        End If

    Else
        i = i + 1
        Cells(i, 3) = "pbm2"

    End If

Wend

End Sub

Merci d'avance !

Essaie rows (i).delete il me semble

ca fonctionne ! merci beaucoup de ta réacitivité !

Bonjour à tous

Pour info, tu as aussi cette façon de faire :

Range(i & ":" & i).Delete

Bye !

Merci ! je le garde à l'esprit !

Bonne journée !

Rechercher des sujets similaires à "supprimer ligne definie indice"