Sub ChercheetOuvreFichier()
Dim chemin As String
Dim nom As String
Dim ligne As Byte, i As Byte
Dim valeur As String
Dim tablo
ligne = 1
chemin = 'c:\\\\\\\\contact\\\\\\\\'
nom = Dir(chemin & '*.csv')
Do While Not nom = ''
Open chemin & nom For Input As #1
Line Input #1, valeur
tablo = Split(valeur, ';')
For i = 0 To UBound(tablo)
Cells(ligne, i + 1) = tablo(i)
Next i
ligne = ligne + 1
nom = Dir
Close #1
Loop
End Sub