Comment écrire dans une cellule?

Bonjour,

J'ai créé un bout de code qui va chercher des fichiers un par un dans un répertoire et si ceux-ci respectent une condition, il faut les stocker leurs noms dans une feuille Excel. Je n'arrive cependant pas à stocker ces valeurs dans les cellule de ma feuille Excel. Ci-dessous, vous trouverez le bout de code :

Sub ListeCombo()
Dim ObjetFSO, ObjetDossier, ObjetFichier
Dim NbFiles, ind, NbXBRL As Integer
Dim File1 As Worksheet

On Error Resume Next
Set ObjetFSO = CreateObject("Scripting.FileSystemObject")
Set ObjetDossier = ObjetFSO.GetFolder(NomRep)
NbFiles = ObjetDossier.Files.Count

If NbFiles > 0 Then
For Each ObjetFichier In ObjetDossier.Files
If (InStr(ind, objFichier.Name, ".xbrl", 1) > 0) Then
Set File1 = Worksheets("DataCombo")
Workbook.ActiveSheet (File1)
Dim s As String
s = ObjetFichier.Name
'File1.Range("A" & ind) = ObjetFichier.Name'
End If
Next
End If
MsgBox (File1.Range("A"))
Set objResultat = Nothing
Set objDossier = Nothing
Set objFSO = Nothing
End Sub

Je l'ai passé en Debug, les variables sont correctement alimentées et il n'y vraiment qu'au passage vers la feuille Excel que cela pose problème. Est-ce que quelqu'un aurait une idée?

Merci