Aller à la ligne suivant le model

Bonjour,

Je suis nouveau sur le forum, Merci pour le travail que vous faites.

Je sollicite votre aide, aux experts d’Excel, je suis Géomètre, dans le cadre de mon travail je dois transformer mes fichiers mesures terrain suivant le model ci-joint :

• Mettre toutes les données en colonne sur la même ligne.
• Aller à la ligne à chaque fois qu’il aura un 5= (Comme sur le model).

Ci-joint les deux fichiers :

Je vous remercie par avance pour votre aide.

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