Sub Totalisationcolonne()
Dim ld1 As Integer 'déclare la variable ld1 (Ligne de Départ 1)
Dim lf1 As Integer 'déclare la variable lf1 (Ligne de Fin 1)
Dim ld2 As Integer 'déclare la variable ld2 (Ligne de Départ 2)
Dim lf2 As Integer 'déclare la variable lF1 (Ligne de Fin 2)
ld1 = 7 'définit la variable ld1
lf1 = Columns(1).Find("Total1").Row - 1 'définit la variable lf1
ld2 = lf1 + 2 'définit la variable ld2
lf2 = Columns(1).Find("Total2").Row - 1 'définit la variable lf2
'place la somme Total1
Cells(lf1 + 1, 2).Value = Application.WorksheetFunction.Sum(Range(Cells(ld1, 2), Cells(lf1, 2)))
'place la somme Total2
Cells(lf2 + 1, 2).Value = Application.WorksheetFunction.Sum(Range(Cells(ld2, 2), Cells(lf2, 2)))
End Sub