Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, cel As Range, montant As Range
Application.EnableEvents = False
Set montant = [D27]
With Feuil2
Set plage = .Range("b9:b39")
End With
For Each cel In plage
If cel.Offset(0, 0).Value = Date Then cel.Offset(0, 1) = montant.Value
Next cel
Application.EnableEvents = True
End Sub