Public NNI
Sub OuvrirCSV()
Fichier = "C:\Users\" & NNI & "\Downloads\MAJ EPI\Export.csv"
If Len(Dir(Fichier)) = 0 Then
MsgBox "Le fichier :" & Chr(10) & Chr(10) & Fichier & Chr(10) & Chr(10) & "n'existe pas."
Exit Sub
End If
Workbooks.OpenText Filename:=Fichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, Semicolon:=True, Comma:=True
Columns.AutoFit
End Sub