Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([L13], Target) Is Nothing And Target.Count = 1 Then
If Target = 1 Then
Sheets("Feuil1").Shapes("Picture 54").Visible = True
Sheets("Feuil1").Shapes("Picture 53").Visible = False
ElseIf Target = 2 Then
Sheets("Feuil1").Shapes("Picture 54").Visible = False
Sheets("Feuil1").Shapes("Picture 53").Visible = True
End If
End If
End Sub