Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rep As String
If Target.Column <> 1 Or Target.Row = 1 Or Target.Value = "" Then Exit Sub
rep = MsgBox("Voulez vous supprimer ce Client ?", vbExclamation + vbYesNo, "Supprimer client")
If rep = vbYes Then
supprimeC
Else
Exit Sub
End If
End Sub