Probleme macro de transfert de données

Option Explicit
Sub MettreAjour()
Dim wbR As Workbook, f As Worksheet, tablo, tabloM
Dim nomF As String, nMois As Integer, i As Integer
nomF = "production.xlsm"
On Error Resume Next
Set wbR = Workbooks(nomF)
If Err.Number > 0 Then
    MsgBox "Le classeur ''production'' doit être ouvert;", 16
    Exit Sub
End If
ActiveSheet.Range("C7:N23").ClearContents
Debug.Print ActiveSheet.Name
tablo = ActiveSheet.Range("C7:N23")
For Each f In wbR.Worksheets
    If IsDate(f.Name) Then
        If Year(CDate(f.Name)) = ActiveSheet.Range("A5") Then
            nMois = Month(CDate(f.Name))
            tabloM = f.Range("AA18:AA30")
            For i = 1 To UBound(tabloM, 1)
                If tabloM(i, 1) = 0 Then
                    tablo(i, nMois) = tablo(i, nMois) + 1
                End If
            Next i
        End If
    End If
Next f
ActiveSheet.Range("C7").Resize(UBound(tablo, 1), 12) = tablo
End Sub

Option Explicit
Sub MettreAjour()
Dim wbR As Workbook, f As Worksheet, tablo, tabloM
Dim nomF As String, nMois As Integer, i As Integer, hrtravmois(12) As Integer, hrtravjour As Integer
nomF = "production.xlsm"
On Error Resume Next
Set wbR = Workbooks(nomF)
If Err.Number > 0 Then
    MsgBox "Le classeur ''production'' doit être ouvert;", 16
    Exit Sub
End If
ActiveSheet.Range("C7:N23").ClearContents
tablo = ActiveSheet.Range("C7:N23")
For i = 1 To 12
    hrtravmois(i) = 0
Next i
For Each f In wbR.Worksheets
    If IsDate(f.Name) Then
        If Year(CDate(f.Name)) = ActiveSheet.Range("A5") Then
            nMois = Month(CDate(f.Name))
            hrtravjour = f.[R31] + f.[R32]
            hrtravmois(nMois) = hrtravmois(nMois) + hrtravjour
            tabloM = f.Range("AA18:AA30")
            For i = 1 To UBound(tabloM, 1)
                tablo(i, nMois) = tablo(i, nMois) + tabloM(i, 1) / 100 * hrtravjour
            Next i
        End If
    End If
Next f
For i = 1 To UBound(tablo, 1)
    For nMois = 1 To 12
        If hrtravmois(nMois) <> 0 Then
            tablo(i, nMois) = tablo(i, nMois) / hrtravmois(nMois)
        Else
            tablo(i, nMois) = ""
        End If
    Next nMois
Next i
ActiveSheet.Range("C7").Resize(UBound(tablo, 1), 12) = tablo
End Sub

Option Explicit

Sub MettreAjour()
Dim wbR As Workbook, f As Worksheet, tablo, tabloM, source As Range
Dim nomF As String, nMois As Integer, i As Integer, hrtravmois(12) As Integer, hrtravjour As Integer
nomF = "production.xlsm"
On Error Resume Next
Set wbR = Workbooks(nomF)
If Err.Number > 0 Then
    MsgBox "Le classeur ''production'' doit être ouvert;", 16
    Exit Sub
End If
Set source = ActiveSheet.Range("C7:N19")
source.ClearContents
tablo = source
For i = 1 To 12
    hrtravmois(i) = 0
Next i
For Each f In wbR.Worksheets
    If IsDate(f.Name) Then
        If Year(CDate(f.Name)) = ActiveSheet.Range("A5") Then
            nMois = Month(CDate(f.Name))
            hrtravjour = f.[R31] + f.[R32]
            hrtravmois(nMois) = hrtravmois(nMois) + hrtravjour
            tabloM = f.Range("AA18:AA30")
            For i = 1 To UBound(tabloM, 1)
                tablo(i, nMois) = tablo(i, nMois) + tabloM(i, 1) / 100 * hrtravjour
            Next i
        End If
    End If
Next f
For i = 1 To UBound(tablo, 1)
    For nMois = 1 To 12
        If hrtravmois(nMois) <> 0 And tablo(i, nMois) <> 0 Then
            tablo(i, nMois) = tablo(i, nMois) / hrtravmois(nMois)
        Else
            tablo(i, nMois) = ""
        End If
    Next nMois
Next i
source = tablo
End Sub