Somme d'onglets en fonction de leur noms

Function somme_onglets(index_onglet1 As Integer, index_onglet2 As Integer, cellule As Range) As Long
   
    'initialisation
    somme_onglets = 0
    
    'contrôles
    If Not index_onglet1 > 0 Or Not index_onglet1 <= Sheets.Count Then
        MsgBox "index onglet 1 invalide"
        Exit Function
    End If
    If Not index_onglet2 > 0 Or Not index_onglet2 <= Sheets.Count Then
        MsgBox "index onglet 2 invalide"
        Exit Function
    End If
    If Not index_onglet2 >= index_onglet1 Then
        MsgBox "index onglet 2 non supérieur ou égal à index onglet 1"
        Exit Function
    End If

    'calcul somme
    For i = index_onglet1 To index_onglet2
        somme_onglets = somme_onglets + Sheets(i).Range(cellule.Address).Value
    Next

End Function