Bonjour a tous,

Je trébuche depuis ce matin.

J'arrive a recuperer les valeurs de la colonne A de la feuille 1 mais je n'arrive pas a les transferer sur la ligne 1 de la feuille 2.

Voici un mon code VBA

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
16
17
18
19
Sub Boucle()
Dim i As Integer
i = 1
Do While Range("A" & i) <> ""
    i = i + 1
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Range("A1" & i).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil2").Select
    Range("B1").Select --> impossible de déplacer la cellule vers la droite
    ActiveSheet.Paste
    Sheets("Feuil1").Select
Loop
End Sub

Help me please Thk U