Copier des onglets selon un range défini

Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OP As Object 'déclare la variable OP (Onglet Parameters)
Dim OS As Object 'déclare la variable OS (OngletS)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CEL As Range 'déclare la variable CEL (CELlule)

Set CS = ThisWorkbook 'définit le classeur source CS
CH = CS.Path & "\" 'définit le chemin CH
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set CD = Workbooks("Banque.xlsm") 'définit le classeur destination CD (génère une erreur si ce classeur n'est pas ouvert)
If Err <> 0 Then 'condition : si une erreur a été générée
    Err.Clear 'efface l'erreur
    Workbooks.Open (CH & "Banque.xlsm") 'ouvre le classeur "Banque.xlsm"
    Set CD = ActiveWorkbook 'définit le classeur destination CD
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs
Set OP = CD.Sheets("Parameters") 'définit l'onglet OP
Set PL = OP.Range("Client Prime") 'définit la plage PL
For Each OS In CS.Sheets 'boucle 1 : sur tous les onglet OS du classeur source CS
    For Each CEL In PL 'boucle 2 : sur toutes les cellules CEL de la plage PL
        'condition : si le nom de l'onglet contient la valeur de la cellule CEL (à adapter)
        If OS.Name Like "*" & CEL.Value & "*" Then
            OS.Copy After:=CD.Sheets(1) 'copy l'onglet dans le classeur CD après le premier onglet de CD
            Exit For 'sort de la boucle 2
        End If 'fin de la condition
    Next CEL 'prochaine cellule de la boucle 2
Next OS 'prochain onglet de la boucle 1
End Sub