Macro somme par mois de résultat journaliers

[COLOR="DarkSlateGray"][B]Sub toto()
Dim i&, j&, datR&, oDat, oXct
   With Feuil1: oDat = .Range(.Cells(4, 5), .Cells(.Rows.Count, 1).End(xlUp)).Value: End With
   With Feuil2
      oXct = .Range(.Cells(4, 5), .Cells(.Rows.Count, 1).End(xlUp)).Value
      For i = 2 To UBound(oXct, 1)
         For j = 2 To 5
            oXct(i, j) = Empty
         Next j
         If IsDate(oXct(i, 1)) Then
            datR = DateSerial(Year(oXct(i, 1)), Month(oXct(i, 1)), 1)
            For j = 2 To UBound(oDat, 1)
               If datR = DateSerial(Year(oDat(j, 1)), Month(oDat(j, 1)), 1) Then
                  oXct(i, 2) = oXct(i, 2) + oDat(j, 2)
                  oXct(i, 3) = oXct(i, 3) + oDat(j, 2) * oDat(j, 3)
                  oXct(i, 4) = oXct(i, 4) + oDat(j, 2) * oDat(j, 4)
                  oXct(i, 5) = oXct(i, 5) + oDat(j, 5)
               End If
            Next j
            If oXct(i, 2) Then
               oXct(i, 3) = oXct(i, 3) / oXct(i, 2) / 86400
               oXct(i, 4) = oXct(i, 4) / oXct(i, 2) / 1440
               oXct(i, 5) = oXct(i, 5) / 1440
            Else
               oXct(i, 2) = 0
               oXct(i, 3) = "-"
               oXct(i, 4) = "-"
               oXct(i, 5) = "-"
            End If
         End If
      Next i
      .Range(.Cells(4, 5), .Cells(.Rows.Count, 1).End(xlUp)).Value = oXct
   End With
End Sub[/B][/COLOR]