Sub AVANCEMENT()
Dim FSrc As Worksheet, FCbl As Worksheet, Spl() As String, _
D As Date, N As Long, Plage As Range, C As Long
Set FSrc = ActiveSheet: FSrc.Copy Before:=FSrc
Set FCbl = ActiveSheet
Spl = Split(FSrc.Name, "-"): D = CDate("1 " & Spl(1))
D = DateSerial(Year(D), Month(D) + 1, 1): N = Mid$(Spl(0), 3) + 1
FCbl.Name = "N°" & N & " - " & Application.Proper(Format(D, "mmmm yyyy"))
FCbl.[K7].Value = D: FCbl.[K8].Value = N
Set Plage = FCbl.[12:210]
For C = 5 To 13 Step 4
Plage.Columns(C).FormulaR1C1 = "='" & FSrc.Name & "'!RC[-1]"
On Error Resume Next
Plage.Columns(C + 1).SpecialCells(xlCellTypeConstants, 1).ClearContents
On Error GoTo 0
Next C
End Sub