Dim PrixDVD As Currency, PrixFILM As Currency, PrixLIVRE As Currency
PrixDVD = WorksheetFunction.SumIf(Columns(4), 'DVD', Columns(8))
PrixFILM = WorksheetFunction.SumIf(Columns(4), 'FILM', Columns(8))
PrixLIVRE = WorksheetFunction.SumIf(Columns(4), 'LIVRE', Columns(8))
Range('A1') = PrixDVD + PrixFILM + PrixLIVRE