Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With [F7:L300] 'à adapter
If Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
Cancel = True
Intersect(Selection, ActiveCell.EntireRow, .Cells) = IIf(ActiveCell = "", " ", "")
End With
End Sub