Bonjour,

N'étant pas très doué en VBA, je n'arrive pas à copier/coller correctement deux colonnes (Colonne 1 feuil 1 et Colonne 2 feuil 2) dans la feuil 3.
Je m'explique :

Ma feuil 1 --> User 

Colonne 1
TOTO
TATA
TITI
Ma feuil 2 --> Dep 

Colonne 1 
PARIS
LILLE 
LYON
Ma feuil 3 --> DepToUser

Colonne 1   Colonne 2 
TOTO         PARIS
TOTO         LILLE
TOTO         LYON
TATA         PARIS
TATA         LILLE
TATA         LYON
...             ...
Voici 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
14
15
16
17
18
19
20
21
22
23
24
25
Sub Macro1()
 Dim Wb As Workbook
    Dim Ws1 As Worksheet: Worksheets("Dep").Activate
    Dim Ws2 As Worksheet: Worksheets("User").Activate
    Dim Ws3 As Worksheet: Worksheets("DepToUser").Activate
    Dim var1 As String
    Dim var2 As String
    Dim i As Integer
    Dim y As Integer
 
            'Parcours les Users       
            For i = 2 To 3
                'Parcours les Dep
                For y = 2 To 23
                    var1 = Sheets("User").Cells(i, 1)
                    'MsgBox (var1)
                    var2 = Sheets("Dep").Cells(y, 1)
                    'MsgBox (var2)
 
                    'MsgBox ("Je copie " & var1 & " ET " & var2)
                    Sheets("DepToUser").Cells(y, 1).Value = var1
                    Sheets("DepToUser").Cells(y, 2).Value = var2
                Next y
            Next i
End Sub

Merci !

TA