completer une Macro evenementielle

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo FIN_CHANGE
Dim i As Integer, c As Range, Cadre As Range
Dim S As Shape

'Validité ============================================
If Intersect(Target, Range("C5, B10:B13, B15:B16")) Is Nothing Then Exit Sub
'MEI =================================================
Application.EnableEvents = False
'RAZ -------------------------------------------------
Range([A10], Range("A1").SpecialCells(xlCellTypeLastCell)).Delete xlShiftUp

For Each S In ActiveSheet.Shapes
    If Left(S.Name, 7) = "Picture" Then S.Delete
Next S
'Traitements =========================================
Select Case Range("C5")
    Case "PLAN DROIT"
        If [B11] = "OUI" Then
            Set Cadre = Sheets("Type Plans").Range("Plan_1ARR_AvG")
        Else
            Set Cadre = Sheets("Type Plans").Range("Plan_Droit1")
        End If
    
    Case "PLATEAU DE TABLE RECTANGULAIRE / SNACK"
        Set Cadre = Sheets("Type Plans").Range("Plan_Droit1")

    Case "PLATEAU DE TABLE RONDE"
        Set Cadre = Sheets("Type Plans").Range("Table_Ronde")
        
    Case "PLAN AVANCE"
        Set Cadre = Sheets("Type Plans").Range("Plan_Avancé")
        
    Case "PLAN SIFFLET"
        Set Cadre = Sheets("Type Plans").Range("Plan_Sifflet")

End Select
Cadre.Copy Range("A10")
End If

FIN_CHANGE:
If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, "Erreur n°" & Err.Number
Application.EnableEvents = True
End Sub