EXCEL ComboBox: Objet requis

Bonjour,

J'ai un problème avec mon code car quand je l'exécute un message s'affiche et me dis objet requis j'essaye d'afficher une liste de fichiers d'un répertoire à l'aide d'une macro dans une liste déroulante et voici mon code:

Sub Liste(Repertoire As String)

Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim FileItem As Scripting.File


Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder("C:\Documents and Settings\visiteur\Bureau\sources")


'Boucle sur tous les fichiers du répertoire
For Each FileItem In SourceFolder.Files

'Inscrit le nom du fichier dans la liste déroulante
ComboBox1.AddItem FileItem.Name (Voici la ligne qui pose problème)

Next FileItem

End Sub

Je ne vois vraiment pas le souci merci.