code vba décaler en dessous si non vide

Bonjour à tous,

je cherche un code qui copierait des valeurs sur la même ligne d'une cellule donnée mais en décalant de 2 colonnes sur la droite par exemple.

Ensuite si la cellule dans laquelle les valeurs doivent se copier est non vide, j'aimerais qu'elles se copient en dessous, si c'est du dessous et non vide qu'elles se copient dans celle du dessous; et ainsi de suite.

Mais je ne parviens pas à faire cette boucle, mon code pour le moment est celui-ci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub copie()       Dim Wt As Worksheet   Set Wt = ThisWorkbook.Worksheets("tableau")     If Wt.Cells(2, 3) = "" Then Wt.Cells(2, 1).Offset(0, 2) = "ESSAI"   End If   End Sub

---

Ci joint mon fichier test

Merci
Clem

En partant de l'hypothèse que la cellule source est A2.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub copie() Dim R_Source As Range, Dim R_Dest As Range   Set R_Source = ThisWorkbook.Worksheets("tableau").Cells(2, 1) Set R_Dest = R_Source.Offset(0, 2)   While Len(R_Dest.Value) = 0 Set R_Dest = R_Dest.Offset(1, 0) Wend   R_Dest.Value = R_Source.Value   End Sub

---

C'est du code tapé à l'arrache directement sur le forum. Tu auras donc peut-être du débugage à faire.

Merci Menhir,

je vais regarder et tester ta proposition

Cleiiim