Merci pour ta réponse, j'ai finalement aussi trouver une solution cette nuit a force de chercher, j'ai même trouver comment changer les couleurs, et taille des colonnes ...
Sub Macro1()
Dim col1 As String
Dim col2 As String
Dim col3 As String
Dim col4 As String
Dim col5 As String
output_row = 1
Do
DoEvents
output_row = output_row + 1
col1 = ActiveSheet.Range("B" & output_row)
col2 = ActiveSheet.Range("C" & output_row)
col3 = ActiveSheet.Range("D" & output_row)
col4 = ActiveSheet.Range("E" & output_row)
col5 = ActiveSheet.Range("F" & output_row)
If col1 <> "" Then
Workbooks.Add
Cells(1, 2).Value = col1
Cells(2, 2).Value = col2
Cells(3, 2).Value = col3
Cells(4, 2).Value = col4
Cells(5, 2).Value = col5
ActiveWorkbook.SaveAs "C:\temp\vba\" & col2 & ".xlsx"
ActiveWorkbook.Close SaveChanges:=False
Windows("testv1.xlsm").Activate
End If
Loop Until col1 = ""
End Sub