Sub Macro1()
Dim tableau As Variant
Dim ligne As String
Dim compteur As Long
Open ThisWorkbook.Path & "\fichier.csv" For Input As #1
Input #1, ligne ' Ligne des titres
While Not EOF(1)
Input #1, ligne
If Len(ligne) <> 0 Then
compteur = compteur + 1
tableau = Split(ligne, ";")
Cells(compteur + 1, 1) = CStr(tableau(0))
End If
Wend
Close #1
End Sub