ATTENTION ! ici rien n'est urgent
Evite de mettre se genre de mot dans tes posts
Dans le code de ton USF, tout est référencé avec : Sheets("Feuil1")
Cela veut dire que le code s'exécute uniquement dans ta feuille 1
Si tu veux que cela puisse se faire à l'endroit ou tu te trouves,
il suffit de changer : Sheets("Feuil1") par ActiveSheet
Private Sub Ini()
Dim L As Integer
Dim Plage As String
With ActiveSheet
L = .Range("A65536").End(xlUp).Row
Plage = .Range("A2:A" & L).Address
ComboBox1.RowSource = .Range(Plage)
End With
End Sub
A+
Edit : opus, mes amitiés Catrice, JCGL