MsgBox Somme de cellules différentes sur plusieurs feuilles

Sub addition()
For onglet = 1 To Sheets.Count - 1 ' -1 pour pas prendre le dernier onglet
With Sheets(onglet)
salaire = salaire + .Cells(.[C65000].End(3).Row, 3)
' .[C65000].End(3).Row   renvoie la derniere lig de col C
prime = prime + .Cells(.[D65000].End(3).Row, 4)
End With
Next
MsgBox "Salaires: " & salaire & " €" & vbCr & "Primes : " & prime & " €", vbInformation, "INFORMATION"
End Sub

Sheets("le_nom_de_la_feuille").Cells(Rows.Count, 3).End(xlUp)

for each sh in worksheets
    if sh.name<>"C" then (le reste du code)
next sh

TabloFeuilles=array("A", "B")
for i=0 to ubound(tabloFeuilles)
    'l'accès à chaque feuille se faisant par:
    sheets(tabloFeuilles(i)) ...
next i

Sub addition()

For i = 1 To Sheets.Count 
Sheets(i).Activate
'exclusion des feuilles non concernées
If Sheets(i).Name <> "TABLE TX CHANGE & CHARGES" And _
    Sheets(i).Name <> "SORTIES" Then
With Sheets(i)
salaire2014 = salaire2014 + .Cells(.[aj65000].End(3).Row, 3)
' .[C65000].End(3).Row   renvoie la derniere lig de col C
salaire2015 = salaire2015 + .Cells(.[am65000].End(3).Row, 3)
End With
End If
Next i

MsgBox "salaire 2014: " & salaire2014 & " €" & vbCr & "salaire 2015 : " & salaire2015 & " €", vbInformation, "INFORMATION"

End Sub