[XL-2003] Copie de liste déroulante entre plusieurs fichiers

[secotine]

Bonjour,
Je cherche à copier une feuille d'un classeur A vers une feuille d'un classeur B. Les cellules de la feuille à copier contiennent des listes déroulantes. La feuille qui décrit les listes se trouve dans les deux classeurs.

J'ai essayé ce code: j'obtiens le symbole du menu déroulant mais que la valeur qui était précédemment sélectionnée, pas la liste en entier.
Comment faire? Merci pour votre aide

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Application.ScreenUpdating = False
 
lafeuille = Sh.Name
Sh.Range("A6").Copy
With ThisWorkbook.Worksheets("BdD_piece").Range("A1")
    .PasteSpecial Paste:=xlPasteValidation
    .PasteSpecial Paste:=xlValues
    .PasteSpecial Paste:=xlFormats
    .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
 
End With
 
 
 Sh.Activate
 Application.CutCopyMode = False
 Selection.ClearContents
 Application.ScreenUpdating = True