Sub Codage()
Dim der&
Application.ScreenUpdating = False
der = Cells(Rows.Count, "g").End(xlUp).Row
Range(Range("i6"), Cells(der, "i")).FormulaR1C1 = "=COUNTIF(R5C7:RC[-2],RC[-2])"
Range(Range("h6"), Cells(der, "h")).FormulaR1C1 = "=RC[-1]*100+RC[1]-1"
Range(Range("h6"), Cells(der, "h")) = Range(Range("h6"), Cells(der, "h")).Value
Range(Range("i6"), Cells(Rows.Count, "i")).ClearContents
End Sub