Sub repertorier_fichier()
Dim LigF As Long, sTmp As String
Dim Chemin As String, Fichier As String, NumLigne As Long
Dim Sht As Worksheet
' Définir la feuille de travail (plus simple)
Set Sht = Sheets("LISTAGE NOMS FICHIERS")
'indique le répertoire contenant les fichiers
Chemin = ActiveSheet.Range("A2").Value
'Boucle sur tous les fichiers msg du répertoire.
Fichier = Dir(Chemin & "\" & "*.*")
'
Do While Len(Fichier) > 0
sTmp = Left(Fichier, 10) ' 10 premiers caractères
' Vérifier si le code n'existe pas déjà
On Error Resume Next
LigF = 0
LigF = Range("A:A").Find(What:=sTmp, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False).Row
On Error GoTo 0
' Si une ligne à été trouvées
If LigF <> 0 Then
Sht.Range("A" & LigF).Value = Sht.Range("A" & LigF).Value & ":" & Fichier
Else
NumLigne = Sht.Range("A" & Rows.Count).End(xlUp).Row + 1
Sht.Range("A" & NumLigne).Value = Fichier
End If
' Continuer dans le dir
Fichier = Dir()
Loop
End Sub