Comment insérer une ligne vide après une condition remplie?

Bonjour

Voilà une macro basée sur la colonne A, si les valeurs sont dans une autre colonne changer les references dans la macro :

Sub insertion()
'
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row ' derniere ligne non vide de la colonne
For n = DernLigne To 2 Step -1 ' boucle de la dernière vide à la 2eme
'si valeur differente que celle de ligne précédente on selectionne la ligne et insertion
If Range("A" & n).Value <> Range("A" & n - 1).Value Then
Rows(n & ":" & n).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next n
End Sub

Macro à copier et coller dans le worsheet de la feuille à traiter (ALT F11 pour ouvrir l'éditeur, choisir la feuille dans l'arborescence)

Cdlmnt