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 Namco, bonjour le forum,

Bizarre ce :

 With Sheets("Feuil1").Activate

Si tu supprimes le .Activate ton code serait :

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

avec un point devant Range et devant Cells.

J'écrirais plutôt dans le composant UserForm2 :

Private Sub UserForm_Initialize()
Dim O As Worksheet
Dim DernLigneI As Long
Dim i As Integer

Set O = Worksheets("Feuil1")
DernLigneI = O.Range("X65536").End(xlUp).Row
For i = 2 To DernLigneI
    ComboBox1.AddItem O.Cells(i, 24)
Next
End Sub