bonjour,

étant débutante en VBA, je bloque depuis 2 jours sur la manip que je dois faire.
En fait, j'ai un fichier excel à 2 feuilles, sur la premier j'ai un fichier de type : 

cadre (colA)        nom(colB)
1                          a
1                          b
1                          c
2                          a
3                          a
3                          b

sur ma feuille 2 j'ai un fichier de type
cadre (colA) nom1(colB) nom2(colC) nom3(colD) nomX(colX)
1 a b c
2 a
3 a b

J'ai bien réussi à importer mes noms de cadre en supprimant les doublons de façons à n'avoir que des valeurs uniques, en revanche je ne sais pas comment coder la boucle qui permettrait pour un numéro de cadre donné dans la feuille 2 de copier et de coller les pacages correspondants mais en ligne cette fois

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub import_visite()
'import_visite Macro'
    Sheets("lyon").Select
    Columns("A:A").Select
    Selection.Copy
    Sheets("siege").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$AH$2397").RemoveDuplicates Columns:=1, Header:= _
        xlYes
 
End Sub
Voilà j'espère avoir été assez claire Quelqu'un pour m'aider ?

bonne journée à tous !