Copier/Coller de valeurs sous conditions

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim PL As Range 'déclare la variable PL (PLage)

If Target.Address <> "$D$23" Then Exit Sub 'si le changement a lieu ailleurs que dans la cellule D23, sort de la procédure
Set CD = ThisWorkbook 'définit le classeur destination CD
Set OD = CD.Sheets("Calcul prix pièce") 'définit l'onglet destination OD
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set CS = Workbooks("DataBase Part Price.xlsx") 'définit le classeur source (génère une erreur si le 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 ("C:\Users\10147920\Desktop\Lean project\Miniflow\DataBase Part Price.xlsx") 'ouvre le classeur
    Set CS = ActiveWorkbook 'définit le classeur source CS
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs
Set OS = CS.Sheets("DataBase") 'définit l'onglet source OS
OD.Range("B17").CurrentRegion.ClearContents 'efface d'éventuelles ancienne données
If Target.Value = "" Then Exit Sub 'si D23 est efacée, sort de la procédure
Set PL = OS.Range("A1").CurrentRegion 'définit la plage PL (tu ne m'as pas dit où commençaient les donnés j'ai pris A1, tu adapteras)
PL.Rows(1).Copy OS.Range("AA1") 'copie en AA1 la première ligne de la plage PL
OS.Range("AA2") = Target.Value 'copie en AA2 la valeur éditée dans D23 (cellule cible)
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
'filtre avancé de la plage PL par rapport au critère édité en D23 (=AA2), renvoyé à partir de la cellule B17 de l'onglet destination OD
PL.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=OS.Range( _
    "AA1:AC2"), CopyToRange:=OD.Range("B17"), Unique:=False 'si aucune donnée ne correspond au critère, cela génère une erreur)
OS.Range("AA1").CurrentRegion.Clear 'efface les données qui ont permis le filtre avancé
End Sub