Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Address = "$D$9" Then
ActiveSheet.Shapes("Picture 199").Visible = IIf(Target = "Français", True, False)
ActiveSheet.Shapes("Picture 202").Visible = IIf(Target = "English", True, False)
ActiveSheet.Shapes("Picture 204").Visible = IIf(Target = "Deutsch", True, False)
End If
End If
End Sub