Boucle à double condition

Bonjour,

Je souhaite faire une boucle avec deux conditions : i <=y et x <= z
De plus, je souhaite que les données d'une cellule soit copiée dans la cellule du dessous si celle- ci est vide
J'ai essayer d'enchainer 2 boucles ainsi mais cela ne fonctionne pas :

While i <= y
While x <= z
If Cells(i + 1, x) = "" Then
Cells(i, x).Select
Selection.Copy
Cells(i + 1, x).Select
ActiveSheet.Paste
End If
i = i + 1
x = x + 1
Wend
Wend

Merci de votre aide