Sub Macro6()
With Range("F5:J" & [D65000].End(xlUp).Row)
.FormulaR1C1 = _
"=SUMPRODUCT((Feuil2!R6C5:R572C5=RC4)*(Feuil2!R6C8:R572C8=VALUE(RIGHT(R4C,2))))"
.Value = .Value
.Replace What:="0", Replacement:="", LookAt:=xlWhole 'ou ActiveWindow.DisplayZeros = False
End With
End Sub