* Bonjour, *

j'ai un fichier sur lequel il y a à peu près une vingtaine de liste déroulante!
je souhaite les dupliquer sur le reste de la feuille jusqu'à l'infini ou à tout le moins sur 60 à 70 000 lignes.

j'ai trouver un code qui peu juste dupliquer une seule liste déroulante.
comment l’étendre à l'ensemble des liste de la feuille ?
quelqu'un a une idée ? merci de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Copie()
Dim X As Byte
For X = 2 To 70000
 
ActiveSheet.Shapes("ComboBox1").Copy
    Range("A" & X).Select
    ActiveSheet.Paste
Next X
Range("A1").Select
End Sub