dak dak. Je vous ai joint le fichier que j'importe, la macro, et le fichier que j'obtiens en sortie.
Sub Macro1()
'
' Macro1 Macro
'
'
Workbooks.OpenText Filename:="\\ppsibeserv\Informatique\bkp.csv", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth...