Sub Macro()
Dim Tablo, i As Long, WS As Worksheet, Dico, DateDeb As Date, DateFin As Date
Set Dico = CreateObject("Scripting.Dictionary")
Set WS = Worksheets("Arrêt production")
Tablo = WS.Range("A2:D" & WS.Range("A" & Rows.Count).End(xlUp).Row)
DateDeb = CDate("01/04/2016")
DateFin = CDate("01/05/2016")
For i = LBound(Tablo) To UBound(Tablo)
If Tablo(i, 2) >= DateDeb And Tablo(i, 3) <= DateFin Then
Dico(Tablo(i, 1)) = Dico(Tablo(i, 1)) + Tablo(i, 4)
End If
Next
If Dico.Count > 0 Then
WS.Range("H2").Resize(Dico.Count, 2) = Application.Transpose(Array(Dico.keys, Dico.Items))
End If
End Sub