Private Sub worksheet_activate()
Dim Annee As Integer, Semaine As Integer, NumJour As Integer, i&
Annee = 2019
Range("G1") = DatePart("ww", Date, 2, 2)
Semaine = Range("G1").Value
For i = 0 To 4
Range("b3:b5").Offset(4 * i) = Evaluate("TEXT(DATE(" & Annee & ",1,3)-WEEKDAY(DATE(" & Annee & _
",1,3))-5+(7*" & Semaine & ")+" & i & ",""[$-fr-BE]ddd d mmm yyy"")")
Next i
End Sub