Option Explicit
Private Sub CommandButton1_Click()
Dim C As Range
Set C = Application.Intersect(Range(ActiveCell.Address), Range("Col_DMS"))
If C Is Nothing Then
MsgBox "Selection en " & ActiveCell.Address & vbCrLf & "Pas de main, pas de macro !!!!"
Else
MsgBox "La macro va s'exécuter car selection sur " & C.Address
End If
End Sub