Saut de ligne automatique quand cellules sont differentes

Bonjour.

Ci-joint une partie de mon fichier ( qui comporte en fait 20 000 lignes...), pour lequel je dois effectuer un saut de ligne ( ligne vierge ) quand le modèle change ( colonne E ). Il doit exister une technique, mais je ne la connais pas.

Merci par avance de votre aide.

Bonjour

Option Explicit

Sub Inserer_Lignes()

Dim c As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, "E").End(xlUp).Row

For c = LastRow To 4 Step -1

If Range("E" & c).Value <> Range("E" & c).Offset(-1, 0).Value Then

Range("E" & c).EntireRow.Insert shift:=xlDown

End If

Next

End Sub

Cordialement

Bonjour et merci beaucoup pour votre prompte réponse.

Super site et super forum.

Je recommande.

Salutations.

Je vous en prie et bonne journée.