Aide recap vente

Private Sub Worksheet_Activate()

Dim i As Long
Dim Somme As Double

Application.ScreenUpdating = False

For Each cel In Range("E12:E14,E17:E21,E24:E27,E29:E31,E33:E35,E38:E44,E48:E55," & _
"E59:E61,E76:E80,E82:E83,E87:E100,E104:E108,E112:E118,E141:E167," & _
"E170:E178,E182:E183,E206:E210,E212:E219,E221:E226,E228:E237," & _
"E239:E242,E244:E250")

    lig = cel.Row
    col = cel.Column
    
    For i = 3 To Worksheets.Count
        Somme = Somme + Worksheets(i).Cells(lig, col).Value
    Next i
    If Somme = 0 Then
    cel.Value = ""
    Else
    cel.Value = Somme
    End If
    Somme = 0
Next cel

For Each cel In Range("F12:F14,F17:F21,F24:F27,F29:F31,F33:F35,F38:F44,F48:F55," & _
"F59:F61,F76:F80,F82:F83,F87:F100,F104:F108,F112:F118,F141:F167," & _
"F170:F178,F182:F183,F206:F210,F212:F219,F221:F226,F228:F237," & _
"F239:F242,F244:F250")

    lig = cel.Row
    col = cel.Column
    
    For i = 3 To Worksheets.Count
        Somme = Somme + Worksheets(i).Cells(lig, col).Value
    Next i
    If Somme = 0 Then
    cel.Value = ""
    Else
    cel.Value = Somme
    End If
    Somme = 0
Next cel

Application.ScreenUpdating = True

End Sub