Sub test()
Dim colonne As Range
Dim cell As Range, i As Integer
Set colonne = Range("A1")
Set cell = Range("A2")
For i = 0 To 9
If Weekday(Date, vbMonday) Then
colonne.Value = Date + (7 * i + (10 - (Weekday(Date, vbMonday))))
Else
colonne.Value = Date + 7 * i
End If
Range(cell, cell.End(xlDown)).Select
Selection.Clear
Set colonne = colonne.Next
Set cell = cell.Next
Next
End Sub