XL2013 : Combobox ne reprend pas les données du classeur

Bonjour à vous le forum

Je suis actuellement de programmer un outil pour l'entreprise

Problème :

Quand je mets le code

 With Sheets("Feuil1").Activate
    Dim DernLigneI As Long
    Dim i As Integer
    DernLigneI = Range("X65536").End(xlUp).Row
    For i = 2 To DernLigneI
    ComboBox5.AddItem Cells(i, 24)
    Next
End With

dans mon userform1, cela fonctionne (je le mets dans mon combobox5

Par contre quand je fais la même manipulation sur mon userform2, le contenu de mon combobox1 ne fonctionne pas.

Que je le mette à travers mon userform ou combobox1, que dalle.

Savez vous comment ça se fait ?

Merci par avance de votre retour

Voici en PJ mon fichier

Namco

Bonjour

a mettre dans UserForm_Initialize

Private Sub UserForm_Initialize()
Dim DernLigneI As Long
Dim i As Integer
DernLigneI = Feuil1.Range("X65536").End(xlUp).Row
    For i = 2 To DernLigneI
        ComboBox1.AddItem Feuil1.Cells(i, 24)
    Next
End Sub

A+

Maurice

Bonjour Archer ^^

Cela fonctionne nickel.

Je ne comprends pas, je l'avais mis sur le

 Private Sub UserForm_Initialize() 

, cela ne fonctionnait pas.

Merci pour ton aide ^^

A+

Namco