Bug sur un Code

 For Each c In ActiveSheet.Range("A1", "A" & Trim(str(Cells(65535, 1).End(xlUp).Row)))

Sub RemplirCombo()
Dim xlAppList As Excel.Application
Dim MyWorkbook As Excel.Workbook
Dim c As Variant
'Dim Trim As Long
    ExcelFile = "F:\Mes Documents Cat\,\Entete Perso & Ent\Entête perso\Perso Chris\Numéro.xls" 'c:\Compteurs
    Table = "Feuil1"
    Set xlAppList = CreateObject("Excel.Application")  'crée une instance excel
    Set MyWorkbook = xlAppList.Workbooks.Open(ExcelFile, 0, , , "")    'ouvrre ce fichier excel
     
    MyWorkbook.Sheets(Table).Select
    For Each c In ActiveSheet.Range("A1", "A" & Trim(str(Cells(65535, 1).End(xlUp).Row)))
            ' Trim(Str(Cells(65535, 1).End(xlUp).Row)) = Repère la dernière cellule remplie de la colonne
       UserForm2.ComboBox2.AddItem Sheets(Table).Cells(c.Row, 1)
    
    Next
    
       '--penser à refermer le classeur en l'enregistrant si il a été modifié
    MyWorkbook.Close savechanges:=True
    Set xlAppList = Nothing
    Set MyWorkbook = Nothing
    Set Variable = Nothing
      
End Sub