test variable

Cel.Value

ActiveCell.Value

Dim bas As Integer
bas = [A65536].End(xlUp).Row+1
Range("A" & bas).FormulaR1C1 = "zzz"
For k = bas To 3 Step -1
If Cells(k, 1) <> "zzz" Then Rows(k).Delete
Next

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
'(type à modifier en fonction de A2, variant étant le type le plus sûr mais le plus gourmand en mémoire)
Dim val As Variant 'déclare la variable val (VALeur)
 
dl = Range("A65536").End(xlUp).Row 'définit la variable dl
val = Range("A2").Value 'définit la variable val
For x = dl To 3 Step -1 'boucle inversée sur les cellules de la dernière ligne à la 3ème en colonne A
    If Cells(x, 1).Value = val Then Rows(x + 1).EntireRow.Insert 'si la cellule à la valeur val, insère une ligne en dessous
Next x 'prochaine cellule de la boucle
End Sub