Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Plg As Range, Cel As Range
Set Plg = Intersect(Cible, Range("D2:D566")) 'Adapter à la plage de saisie.
If Not Plg Is Nothing Then
Application.EnableEvents = 0
For Each Cel In Plg
If IsEmpty(Cel) Then
Cel.Offset(0, -3).Resize(1, 2) = Empty
Else
Cel.Offset(0, -3) = 1 + (4 + Date - Weekday(Date - (Date < 61), 2) - DateSerial(Year(4 + Date - Weekday(Date - (Date < 61), 2)), 1, 1)) \ 7
Cel.Offset(0, -2) = Weekday(Date, 2)
End If
Next
Application.EnableEvents = 1
End If
End Sub