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