Recherche:

Remplace la ligne 14 par celle ci
Worksheets("CALENDAR").Cells(D, C).Resize(F - D + 1).Value = .Cells(i, 8).Value

Pour copier l'ensemble des lignes vers leur destination

Sub Traitement()
Dim N As Long, i As Long
Dim D As Long, F As Long
Dim C As Integer

Application.ScreenUpdating = False
With...