Sub Resumer()
Dim Titres(), Dic As New Dictionary, C As Long, TFact(), L As Long, TRés()
Titres = Feuil4.[A1:T1].Value
For C = 11 To UBound(Titres, 2): Dic(Titres(1, C)) = C: Next C
TFact = Feuil1.[A12:I32].Value
ReDim TRés(1 To 1, 1 To UBound(Titres, 2))
TRés(1, 1) = TFact(1, 2)
TRés(1, 2) = TFact(1, 1)
TRés(1, 4) = TFact(19, 9)
TRés(1, 5) = TFact(17, 9)
TRés(1, 6) = TFact(19, 9)
TRés(1, 7) = TFact(19, 4)
TRés(1, 9) = TFact(20, 4)
TRés(1, 10) = TFact(21, 4)
For L = 4 To 16
If Dic.Exists(TFact(L, 1)) Then C = Dic(TFact(L, 1)): TRés(1, C) = TRés(1, C) + TFact(L, 6)
Next L
Feuil4.Cells(&H100000, 1).End(xlUp).Offset(1).Resize(, UBound(TRés, 2)).Value = TRés
End Sub