Sub efface()
Dim cel As Range, i As Long, adr As String
Range("G1:G" & Range("G65536").End(xlUp).Row).Cells.SpecialCells(xlCellTypeBlanks).Select
If Selection.Cells.Count < 2 Then MsgBox "Pas de suppression": Exit Sub
adr = ""
For Each cel In Selection
If cel.Offset(0, 1) = "" Then
If adr = "" Then
adr = cel.Address
Else
adr = adr & "," & cel.Address
End If
End If
Next
if adr>"" then Range(adr).EntireRow.Delete
End Sub