Private Sub Worksheet_Change(ByVal r As Range)
Set r = Intersect(r, Me.UsedRange) 'plage à adapter
If r Is Nothing Then Exit Sub
For Each r In r 'si entrées multiples
If IsDate(r) Then r.NumberFormat = Replace("""" & Application.Proper(Format(r, "ddd")) & """", ".", "") & "dd"
Next
End Sub