Bonjour,
Dans le cde de la feuille Terrasse
Primo
remplace Private Sub Worksheet_SelectionChange(ByVal Target As Range) par
Sub Worksheet_SelectionChange(ByVal Target As Range)
pour une histoire de portée de variable (la variable a en l'occurrence)
Secundo
tu as du code en dehors de toute procédure
If Me.OptionButton1 = True And Me.OptionButton9 = False And Me.OptionButton5 = False And Me.OptionButton13 Then
'Afficher l'image ou il y a que un mur
MsgBox "Un mur"
End If
il faut le mettre en commentaire
@ +