Copier coler avec condition

Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque édition dans l'onglet
Dim dest As Range 'déclare la variable dest (DESTination)
 
If Target.Address <> "$D$13" Then Exit Sub 'si le changement a lieu ailleurs qu'en D13, sort de la procédure
 
With Sheets("Copie") 'prend en compte l'omglet "Copie"
    'définit la variable dest (recherche l'occurrence de D13 dans la colonne A de l'onglet "Copie")
    Set dest = .Range("A9:A" & .Range("A65536").End(xlUp).Row).Find(Target, .Range("A9"), xlValues, xlWhole)
 
    If Not dest Is Nothing Then 'condition : si il existe au moins une occurrence de dest
        Range("B16").Copy dest.Offset(0, 1) 'copie et colle B16
        Range("D16").Copy dest.Offset(0, 2) 'copie et colle D16
        Range("F16").Copy dest.Offset(0, 3) 'copie et colle F16
        Range("H16").Copy dest.Offset(0, 4) 'copie et colle H16
    End If 'fin de la condition
End With 'fin de la prise en compte de l'onglet "Copie"
End Sub

Private Sub CommandButton1_Click()
'essai1
'déclarations des variables
Dim dest As Range 'déclare la variable dest (DESTination)
[COLOR=red]Dim dest2 As Range 'déclare la variable dest (DESTination2)[/COLOR]
[COLOR=red]Dim d As Date 'déclare la variable d (Date à rechercher)[/COLOR]
 
[COLOR=red]If Range("D13") = "" Then Exit Sub 'si la date n'est pas renseignée, sort de la procédure[/COLOR]
[COLOR=red]d = Range("D13").Value 'définit la variable d[/COLOR]
 
With Sheets("Copie") 'prend en compte l'onglet "Copie"
    'définit la variable dest (recherche l'occurrence de D13 dans la colonne A de l'onglet "Copie")
    Set dest = .Range("A9:A" & .Range("A65536").End(xlUp).Row).Find([COLOR=red]d[/COLOR], .Range("A9"), xlValues, xlWhole)
End With 'fin de la prise en compte de l'onglet "Copie"
 
[COLOR=red]With Sheets("Créer") 'prend en compte l'onglet "Créer"[/COLOR]
[COLOR=red]'définit la variable dest (recherche l'occurrence de D13 dans la colonne A de l'onglet "Créer")[/COLOR]
[COLOR=red]Set dest2 = .Range("A9:A" & .Range("A65536").End(xlUp).Row).Find(d, .Range("A9"), xlValues, xlWhole)[/COLOR]
[COLOR=red]End With 'fin de la prise en compte de l'onglet "Créer"[/COLOR]
 
    If Not dest Is Nothing Then 'condition : si il existe au moins une occurrence de dest
        Range("B16").Copy dest.Offset(0, 1) 'copie et colle B16
        Range("D16").Copy dest.Offset(0, 2) 'copie et colle D16
        Range("F16").Copy dest.Offset(0, 3) 'copie et colle F16 dans l'onglet "Copie"
[COLOR=red] Range("F16").Copy dest2.Offset(0, 1) 'copie et colle F16 dans l'onglet "Créer"[/COLOR]
        Range("H16").Copy dest.Offset(0, 4) 'copie et colle H16 dans l'onglet "Copie"
[COLOR=red] Range("H16").Copy dest2.Offset(0, 2) 'copie et colle H16 dans l'onglet "Créer"[/COLOR]
    End If 'fin de la condition
End Sub