Tu peux simplifier puisque les dates sont dansla colonne 1
A+Code:
1
2
3
4
5
6
7
8
9
10 Open "C:\MonFichier.csv" For Output As #1 For i = PremièreLigne To DernièreLigne Print #1, Format(Cells(i, 1).Formula,"dd/mm/yyyy") & ";"; 'Colonne 1 For j = 2 To DernièreColonne 'là, tu démarres colonne 2 Print #1, Cells(i, j).Formula & ";"; Next j Print #1, Cells(i, j + 1).Formula 'Permet une fin de ligne A CONSERVER Next i Close #1