Sub CreerDates()
Col = ActiveCell.Column
Date1 = ActiveCell.Value
i = 0
If ActiveCell.Value <> "" Then
Do
i = i + 1
Cells(1, Col + i) = Date1 + i
Loop While (i < DateSerial([B5], 12, 31) - Date1)
End If
MsgBox ("Merci Philippe pour les 2 premières lignes de la macro")
End Sub