ValeurSum1 = Application.WorksheetFunction.Sum(Range(Cells(6, Col - 1), Cells(1000, Col - 1)))
ValeurSum2 = Application.WorksheetFunction.Sum(Range(Cells(6, Col), Cells(1000, Col)))
Sheets(nom_feuille_resultat).Cells(3, Col - 1) = ValeurSum1
Sheets(nom_feuille_resultat).Cells(4, Col) = ValeurSum2