bonjour,
une proposition via macro
Sub aargh()
Set ws = Sheets("A remplir") '<- à adapter éventuellement
rep = "d:\downloads\test\" '<- à adapter répertoire dans lequel mettre les fichiers csv créés
With ws
dl = .Cells(Rows.Count, 1).End(xlUp).Row
dc = .Cells(1, Columns.Count).End(xlToLeft).Column
curclub = ""
For i = 2 To dl
If curclub <> .Cells(i, 1) Then
If i > 2 Then
Close 1
End If
curclub = .Cells(i, 1)
nf = rep & curclub & Format(Now(), "_yyyymmdd") & ".csv"
Open nf For Output As 1
copyline ws, 1, dc
End If
copyline ws, i, dc
Next i
Close
End With
End Sub
Sub copyline(ws, lg, dc)
For j = 1 To dc
Print #1, ws.Cells(lg, j) & IIf(j <> dc, ",", "");
Next j
Print #1, ""
End Sub