Mais ou est l'erreur ? 1004 .range _Global

Bonjour,

erreur 1004 Cells _Global
Le problème ce situe dans la boucle For au niveau du activesheet Cells
Je ne vois pas ce qui bug.

Merci beaucoup pour vos lumières.

Private Sub service_box_Change()

Elmt_projet.responsable_box.Clear

If service_box = "Nom_du_service" Then

ExcelFile = "c:\MONFICHIER.xls"
Table = "Feuil1"
Set xlAppList = CreateObject("Excel.Application") 'crée une instance excel
Set MyWorkbook = xlAppList.Workbooks.Open(ExcelFile, 0, , , "") 'ouvre ce fichier excel
MyWorkbook.Sheets(Table).Select 'Selection la table

For Each c In ActiveSheet.Range("L2", "L" & 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
Elmt_projet.responsable_box.AddItem Sheets(Table).Cells(c.Row, 12)
Next

'penser à refermer le classeur en l'enregistrant si il a été modifié
MyWorkbook.Close savechanges:=True
Set xlAppList = Nothing
Set MyWorkbook = Nothing
Excel.Application.Quit

End If
End Sub