Bonjour à tous!

J'ai un souci sur mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub macro2()
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
For x = DerniereLigne To 1 Step -1
 
If Not Range("C" & x + 1) = "" Then Range("A" & x & ":B" & x).Copy
 
    Do While Not Range("C" & x + 1).Value = ""
    x = x + 1
    Range("A" & x & ":B" & x).PasteSpecial
    Loop
 
Next
End Sub
apparement le probleme vient de Do While, je voudrai juste lui dire :

Tant que le contenu de la cellule ("C" & x +1) n'est pas vide x = x +1
et copy des cellules ("A" & x & ":B" & x).

Je sais que c'est une boucle dans une boucle, je sais pas si on a le droit..?

Merci de votre aide!