Public Sub Macro1()
Dim d As String 'déclare la variable d (Date)
d = Range("D2").Value 'définit la variable d
With Sheets("Sheet2") 'prend en compte l'onglet "Sheet2"
For Each cel In .Rows(1).Cells 'boucle sur toutes les cellules cel de la ligne 1
If cel.Value = d Then 'condition : si la cellule cel est égale à d
.Cells(2, cel.Column).Value = Range("K5").Value 'place la réponse à la question 1
.Cells(3, cel.Column).Value = Range("K15").Value 'place la réponse à la question 2
.Cells(4, cel.Column).Value = Range("k24").Value 'place la réponse à la question 3
Exit For 'sort de la bouble
End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "Sheet2"
End Sub