Bonjour,
Un exemple dans le fichier joint.
Cdlt.
Public Sub CreateDates()
Dim dt As Date, arr(4, 1)
dt = Date - Weekday(Date, 2) + 1
arr(0, 0) = dt - 28: arr(0, 1) = dt - 22
arr(1, 0) = dt - 21: arr(1, 1) = dt - 15
arr(2, 0) = dt - 14: arr(2, 1) = dt - 8
arr(3, 0) = dt - 7: arr(3, 1) = dt - 1
arr(4, 0) = dt: arr(4, 1) = dt + 6
With ActiveSheet
With .Cells(1).Resize(5, 2)
.Value = arr
.NumberFormat = "ddd dd/mm/yyyy"
End With
.Cells(1).Resize(1, 2).EntireColumn.AutoFit
End With
End Sub