Sub typeinter() Dim Lig As Integer, drLig As Integer With Sheets("Type_inter") drLig = .Range("a1").End(xlDown).Row For Lig = 1 To drLig Me.C_typedinter.AddItem .Range("A" & Lig) Next Lig End With End Sub
je pense pouvoir l'avoir bien copié j'ai tout simplement fait un copier/coller d'un existant mais ça ne fonctionne pas biensur en changeant la destination, la source est la même