Option Explicit
Sub Ligne_insérer()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "g").End(xlUp).Row To 2 Step -1
If Range("g" & i) <> Range("g" & i).Offset(-1, 0) And Range("g" & i) <> "" Then Rows(i).insert
Next i
Application.ScreenUpdating = True
End Sub