Bonjour
Il suffit de créer la forme puis jouer sur la visibilité de celle-ci qui doit être visible si la sélection est dans cette colonne et invisible sinon
Exemple : à placer dans le module de la feuille concernée en adaptant le nom de la forme
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("M:M")) Is Nothing Then
Me.Shapes.Range(Array("Rectangle 1")).Visible = msoFalse
Else
Me.Shapes.Range(Array("Rectangle 1")).Visible = msoTrue
End If
End Sub