copier des formules avec les mois

Sub Copier_Formules()
Dim derlig&, col&, f

    On Error Resume Next
    Application.ScreenUpdating = False
 
    f = Array("mars", "avril", "mai", "juin", "juillet-août", "septembre", "octobre", "novembre", "décembre")
    derlig = Sheets("février").Cells(Rows.Count, "F").End(xlUp).Row
 
    For col = 6 To 104 Step 1
        Sheets("février").Cells(derlig, col).Copy
        Sheets(f).Cells(4, col).PasteSpecial Paste:=xlPasteFormulas
    Next col
 
    Application.CutCopyMode = 0
    Application.Goto Sheets("mars").Range("e4")
End Sub

Sub Copier_Formules()
Dim derlig&, col&, k&, tablo(), tbl, f

    On Error Resume Next
    Application.ScreenUpdating = False

    f = Array("mars", "avril", "mai", "juin", "juillet-août", "septembre", "octobre", "novembre", "décembre")
    derlig = Sheets("février").Cells(Rows.Count, "F").End(xlUp).Row
    k = 3
    With Sheets("février")
        For col = 6 To 104 Step 1
            tbl = .Range("f4:" & .Cells(derlig, col))
            For i = 1 To UBound(tbl)
                k = k + 1
                tablo(tbl(k, col)) = tbl(i, col)
            Next i
        Next col
    End With

    Sheets(f).Range("f4").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub