Bonsoir,
Essaie ce code à placer dans un module.
Sub SupLigne()
Dim Derl%, v%, depart%
With ActiveSheet
Derl = .Range("B" & Rows.Count).End(xlUp).Row
v = 0: depart = 3
For i = depart To Derl
If .Cells(i, "B") <> "" Then v = 0
If .Cells(i, "B") = "" Then v = v + 1
If v = 2 Then
v = 0
Rows(i).Delete
End If
Next i
End With
End Sub
Il faudra le lancer plusieurs fois si tu as plus de deux lignes vides.
Coridalement