Sub mise_en_place_date()
Dim date1 As Date
With Sheets("Données")
.Range("A7:A1000").Clear
.Range("A7").FormulaR1C1 = "Date/UG"
date1 = .Range("A1").Value
DateC1 = date1 & " 0:30"
DateC2 = date1 & " 1:30"
.Range("A8").Value = Format(DateC1, "mm/dd/yy hh:mm")
.Range("A9").Value = Format(DateC2, "mm/dd/yy hh:mm")
nb_jour = Day(DateSerial(Year(CDate(.[A1])), Month(CDate(.[A1])) + 1, 0))
Select Case nb_jour
Case 28: J = 679
Case 29: J = 703
Case 30: J = 727
Case 31: J = 751
End Select
.Range("A8:A9").AutoFill Destination:=.Range("A8:A" & J), Type:=xlFillDefault
End With
End Sub