Sub Totaux_Addition()
Dim c As Range
Set c = [A:A].Find("TOTAUX", , xlValues, xlWhole)
If c Is Nothing Then Set c = [A:A].Find("*", SearchDirection:=xlPrevious)(2): c = "TOTAUX"
Union(c(1, 8), c(1, 10), c(1, 12)) = "=SUM(H8:H" & c.Row - 1 & ")"
Range(c(1, 8), c(1, 12)) = Range(c(1, 8), c(1, 12)).Value 'facultatif, supprime les formules
End Sub