Inserer une ligne

Bonjour,

Je souhaiterais trouver la macro qui me permette de, sur une plage sélectionnée (ex: cellules A2 à A30), contrôler le contenu des cellules afin d'insérer une ligne entre deux cellules différentes.

Exemple : plage A2 à A30, si cellule A3 = A2, passer à la cellule suivante

Si A4 différent de A3, insérer une ligne entre A3 et A4

Ainsi de suite

j’ai trouvé sur internet la macro suivante qui me paraissait bien, mais elle n’insert qu’une cellule et décale tout.

Moi je voudrais insérer une ligne vierge

Public Sub test()
Dim i As Long
Dim truc As Range
Set truc = Range("A1")
i = 1
With truc
While .Cells(i) <> Empty
If .Cells(i) = .Cells(i + 1) Then
i = i + 1
Else
.Cells(i + 1).Insert Shift:=xlDown
i = i + 2
End If
Wend
End With
End Sub

Merci de m’aider c’est pour mon boulot

Bonjour

A tester

Option Explicit

Sub Insertion()
Dim J As Long

  Application.ScreenUpdating = False
  For J = 30 To 3 Step -1
    If Range("A" & J) <> Range("A" & J - 1) Then Rows(J).Insert
  Next J
End Sub