(RESOLUT)Afficher schémas selon la valeur d'une cellule

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