Sub Sous_total()
Dim f As Worksheet
Dim Derligne As Long
For Each f In ThisWorkbook.Worksheets
'c.Select
If f.Name <> "Consignation" Then
f.Activate
Derligne = f.Range("A" & Application.Rows.Count).End(xlUp).Row + 1
f.Range("C" & Derligne & ":L" & Derligne).FormulaLocal = "=SOMME(C2:C" & Derligne[COLOR=Red] [SIZE=5][B]- 1[/B][/SIZE][/COLOR] & ")"
f.Range("A" & Derligne).Value = "Total"
'f.Range("A1").Select
End If
Next f
End Sub