Re salut plug2, salut le forum,
Voici une macro qui devrait te convenir.
Dans l'exemple la macro travaille sur la colonne A. Modifie selon tes besoins.
Public Sub dif()
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
If cel.Value = "" Then GoTo suite
If cel.Value <> cel.Offset(1, 0).Value Then
cel.Offset(1, 0).Select
Selection.EntireRow.Insert
End If
suite:
Next cel
End Sub
À plus,
Robert