Sub Totaliser()
Dim x As Integer
Dim dercol As Integer
Set MaPlage1 = Range(Cells(1, x), Cells(5, x)) 'c'est ici que ça coince
Set MaPlage2 = Range(Cells(10, x), Cells(16, x)) 'et là aussi
MaSomme = Application.WorksheetFunction.Sum(MaPlage1, MaPlage2)
dercol =...