Dans votre macro France est un littéral et non une variable.
Il convient donc de l'écrire cernée par des double quotes (")
Code corrigé ci-dessous
Code:
Sub MontrerMasquer()
If ActiveSheet.Shapes("France").Visible = True Then
ActiveSheet.Shapes("France").Visible = False
Else: ActiveSheet.Shapes("France").Visible = True
End If
End Sub