Sub Insert_we_II()
Dim i As Long
Dim Jour_Debut As Long
Jour_Debut = Day(Cells(1, 1).Value)
Dim Fin As Long
For i = [A65536].End(xlUp).Row To 1 Step -1
If Weekday(Cells(i, "A"), vbMonday) = 6 Then
Cells(i, "A").Rows(2).Insert
End If
Next i
Select Case Month(Cells(1, 1).Value)
Case 1, 3, 5, 7, 8, 10, 12
Fin = 32 - Jour_Debut
Range("A1").AutoFill Destination:=Range("A1:A" & Fin), Type:=xlFillDefault
Case 4, 6, 9, 11
Fin = 31 - Jour_Debut
Range("A1").AutoFill Destination:=Range("A1:A" & Fin), Type:=xlFillDefault
Case 2
If Month(DateValue("28/02/" & Year(Cells(1, 1).Value)) + 1) <> Month(DateValue("28/02/" & Year(Cells(1, 1).Value))) Then
Fin = 29 - Jour_Debut
Range("A1").AutoFill Destination:=Range("A1:A" & Fin), Type:=xlFillDefault
Else
Fin = 30 - Jour_Debut
Range("A1").AutoFill Destination:=Range("A1:A" & Fin), Type:=xlFillDefault
End If
End Select
End Sub