copier coller avec decalage par date

Private Sub CommandButton1_Click()
Dim d As Date 'éclare la variable d (Date)
Dim r As Range 'déclare la variable r (Recherche)
Dim c As Byte 'déclare la variable c (Colonne)
 
d = Range("D8").Value 'définit la variale d
 
With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
    Set r = .Rows(1).Find(d) 'définit la variable r
    If Not r Is Nothing Then c = r.Column 'si il existe aun moins une occurence de r, définit la colonne c
    .Cells(2, c).Value = Range("B5").Value 'récupère la valeur de B5
    .Cells(3, c).Value = Range("B6").Value 'récupère la valeur de B6
    .Cells(4, c).Value = Range("C2").Value 'récupère la valeur de C2
End With 'fin de la prise en compte de l'onglet "Feuil2"
End Sub