Sub MontrerMasquer()
If ActiveSheet.Shapes("France").Visible = True Then
ActiveSheet.Shapes("France").Visible = False
Else: ActiveSheet.Shapes("France").Visible = True
End If
End Sub
Sub MontrerMasquer()
With ActiveSheet.Shapes("France")
.Visible = Not .Visible
End With
End Sub