MA MACRO

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeur TV
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 2 To UBound(TV, 1) - 1 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde et sans la dernière)
    If TV(I + 1, 1) <> TV(I, 1) Then 'condition : si la donnée en ligne I + 1 est différente que la donnée en ligne I (dans la colonne 1)
        ReDim Preserve TL(J) 'redimensionne le tableau des lignes TL
        TL(J) = I + 1 'stocke le numéro de ligne I + 1
        J = J + 1 'incrémente J
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
For J = UBound(TL) To LBound(TL) Step -1 'boucle inversée sur tous les éléments J du tableau des lignes TL
    O.Rows(TL(J)).Insert shift:=xlShiftDown 'insère une ligne avant la ligne de l'élément J de TL
Next J 'prochain élément de la boucle
End Sub