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 : Sélectionner tout - Visualiser dans une fenêtre à part
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