Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If [A3].Value = "France" Then ActiveSheet.Shapes("1").Visible = True Else ActiveSheet.Shapes("1").Visible = False
If [A3].Value = "Angleterre" Then ActiveSheet.Shapes("2").Visible = True Else ActiveSheet.Shapes("2").Visible = False
If [A3].Value = "Allemagne" Then ActiveSheet.Shapes("3").Visible = True Else ActiveSheet.Shapes("3").Visible = False
End Sub