Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
'Adapter ci dessous l'adresse de la cellule qui doit réagir.
' Pour une colonne entière mettre (col A par exemple) :
' If Target.column = 1 then
If Target.Address(0, 0) = "A1" And Target > 0 And Target < 32 Then
Target = DateSerial(Year(Now), Month(Now), Target)
End If
End Sub