Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Target.count teste s'il i a plusieurs cellules sélectionner
'pour éviter de supprimer plusieurs lignes en même temps
If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing And Target.Count = 1 Then
If MsgBox("Voulez vous supprimer cette ligne ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation") = vbYes Then
Target.EntireRow.Delete 'supprime la ligne complète
'Evite de faire apparaître le menu contextuel des cellules
'peut-être placé ailleur, placé ici le menu apparaîtra si la reponse est non
Cancel = True
End If
End If
End Sub