Option Explicit
Dim EffAc As String, C As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A:A], Target) Is Nothing Then
If ActiveCell = "" Or Target.Count > 1 Then Exit Sub
EffAc = MsgBox("Etes-vous sûr(e) supprimer le nom " & ActiveCell & " ?", vbYesNo + vbInformation, "Delete Name")
If EffAc = vbYes Then
ActiveCell.EntireRow.Delete: Exit Sub [COLOR=Green]' Si Seulement la cellule enlève EntireRow.[/COLOR]
Else
Exit Sub
End If
End If
End Sub