Erreur 438 excel vba

Bonjour
J’ai une macro excel qui marche un un ordi et pas sur mon ordi portable.
La macro actualise une ComboBox .
Cette combobox contient la liste des fichiers excel contenue dans le même dossier que le fichier source.
j ai une erreur 438

voici le code ou il y l’erreur : With Worksheets(« bilan »).ComboBox1

la macro complète:
Sub Liste_Des_Fichiers()

Dim Répertoire As String
Dim Fichier As String
Dim Tblo(), A As Long
Dim valeur As String

'enlever la protection
Sheets(« bilan »).Select
Range(« G4 »).Select
ActiveSheet.Unprotect (« moi »)

'ActiveSheet.Shapes.Range(Array(« Image 102 »)).Select
'Selection.ShapeRange.ZOrder msoSendToBack

'Chemin répertoire à adapter…
Répertoire = ThisWorkbook.Path & ""
Fichier = Dir(Répertoire & « .xl »)

Do While Fichier <> «  »
A = A + 1
ReDim Preserve Tblo(1 To A)
Tblo(A) = Split(Fichier, « . »)(0)
Fichier = Dir()
Loop

With Worksheets(« bilan »).ComboBox1

.Clear
.MatchEntry = fmMatchEntryComplete
.List = Application.Transpose(BubbleSort(Tblo))

End With

End Sub

merci de votre lumiere

Hello il me semble qu’on avait déjà vu ça il n’y a pas si longtemps…

la feuille « bilan » ou le « combobox1 » n’existent pas.

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.