Sub test()
Dim valeur As String
Dim lgLig As Long
' Récupération de la valeur de la dernière ligne en colonne H
valeur = Cells(Cells(Cells.Rows.Count, 8).End(xlUp).Row, 8).Value
' Si la dernière ligne n'est le titre, effectuer le traitement
If Cells(Cells.Rows.Count, 8).End(xlUp).Row > 2 Then
' Boucle de la dernière ligne à la deuxième ligne
For lgLig = Cells(Cells.Rows.Count, 8).End(xlUp).Row To 2 Step -1
' Si la valeur n'est pas identique
If Worksheets("Feuil1").Cells(lgLig, 8).Value <> valeur Then
' Sélectionner la ligne en dessous
Worksheets("Feuil1").Cells(lgLig + 1, 8).Select
' Ajouter une ligne
Selection.Insert Shift:=xlDown
' Sélectionner la ligne courante
Worksheets("Feuil1").Cells(lgLig, 8).Select
' Récupération de la nouvelle valeur
valeur = Worksheets("Feuil1").Cells(lgLig - 1, 8).Value
End If
Next lgLig
End If
End Sub