Selection VBA avec systéme incrémentale

Bonjour,

J'ai réaliser un petit systéme incrémentale et la je suis bloquer ( sinon je ne serais pas la ^^).

Donc voila ce que je veus : Aprés avoir réaliser la premiére action ( qui fonctionne trés bien ) Je souhaite que si la cellulle (z, 5 ) est non vide alors il selectionne la ligne de A à G, et ainsi de suite jusuqu'a ce qu'il tombe sur une case vide en (z, 5).Ce qui me permettra d'avoir une plage de selection de type range("A1:G200").

Voici ma macro:

Sub Macro1()

z = 18

While Cells(z, 5) <> ""
If Not IsEmpty(Cells(z, 5)) Then Cells(z, 4) = "=RIGHT(LEFT(RC[1],LEN(RC[1])-1),1)"

z = z + 1
Wend


z = 18
While Cells(z, 5) <> ""
If Not IsEmpty(Cells(z, 5)) Then Cells(z, 7).Select


z = z + 1
Wend

End Sub

La premiére partie marche la deuxiéme ne selectionne rien ou alors en bidouillant j'arrive a avoir une cellule.

J'espére avoir était asser claire voila voila.

Max.