Utilisation variable et variable +1

Bonjour tous le monde,

Je suis bloqué sur la programmation d'une variable en fonction d'une autre.

Je m'explique, j'aimerais tester le contenu d'une cellule ET le contenu de la cellule du dessous, pour chaque cellule d'une plage spécifique,

Voila ou j'en suis :

"Sub test3()

End Sub"

Si quelqu'un à la solution .... ça serait génial.

Je m'auto répond,

J'ai trouvé une solution, ..... c'est franchement pas académique mais ca fonctionne.

"Sub test3()

Dim DLig As Long

DLig = Range("B25").End(xlDown).Row 'Recherche de la derniere ligne non vide

Dim DLig2 As Long

For Each Cell In Range("A25:A" & DLig) 'Défini la plage de case à tester

Cell.Select

ActiveCell.Offset(1, 0).Select

If Cell.Value <> "" And ActiveCell.Value = "" Then 'Test la valeur de la case CELL et de la case en dessous

BLA BLA BLA MACRO VBA PROGRAMME etc...

Next Cell 'Passe a la cellule suivante et boucle sur le test de variable

End Sub"

Si ça peu en aider certain.