bonjour,
une macro qui met les infos en colonne et passe à la ligne dès qu'un 5= est rencontré. Mais cela ne donne pas le résultat comme attendu dans le modèle (model)
Sub transform()
Set ws1 = Worksheets("a transformer")
Set ws2 = Worksheets("Feuil1")
dl1 = ws1.Range("A" & Rows.Count).End(xlUp).Row
c = 1: l = 1
For i = 1 To dl1
If Left(ws1.Cells(i, 1), 2) = "5=" Then l = l + 1: c = 1 Else c = c + 1
ws2.Cells(l, c) = ws1.Cells(i, 1)
Next i
Set ws1 = Nothing
Set ws2 = Nothing
End Sub