Option Explicit
Public Event AjoutAppartement()
Public Event SuppressionAppartement()
Public WithEvents Btn As MSForms.CommandButton
Public Sub Btn_Click()
If Not InStr(1, Btn.Name, "Ajouter") = 0 Then
MsgBox "ajouter"
RaiseEvent AjoutAppartement
Else
MsgBox "supprimer"
RaiseEvent SuppressionAppartement
End If
End Sub