Erreur de depassement

Bonjour , je sais pas ou est l'erreur

voici mon code

Function Somme_si(valeur As String) As Integer
Dim somme As Integer
Dim DernLigne
Dim i As Integer

somme = 0

' la recherche est seulement sur la colonne E
DernLigne = Range("N" & Rows.Count).End(xlUp).row
For i = 4 To DernLigne
If Sheets("Feuil1").Cells(i, 25).Value = valeur Then
somme = somme + Sheets("Feuil1").Cells(i, 14).Value
End If
Next i

Somme_si = somme
End Function

et merci

Bonjour,

Pourquoi réécrire une formule déjà existante sous Excel ?

Votre erreur provient sans doute d'un nombre trop grand pour le type Integer (de -32768 à +32767). Si votre entier dépasse ces bornes pour l'une des variables, il faudra privilégier le type Long.

J'ai changé de integer vers Long , mais j'ai eu un autre erreur dans une autre ligne a la fin ou j'utilise la fonction Occurence=(max, table) , erreur : incompatibilité erreur

Dim max As Integer
Dim occ As Integer

max = WorksheetFunction.max(table)
occ = occurance(max, table)