Function SOM(cel As Range, plage As Range) As Integer 'plage évite de rendre volatile la fonction
Dim i As Integer
If cel Then
While cel.Offset(, i)
[COLOR="Red"]If cel.Offset(-2, i) = "CA" Then[/COLOR] SOM = SOM + cel.Offset(, i)
i = i - 1
Wend
i = 1
While cel.Offset(, i)
[COLOR="red"]If cel.Offset(-2, i) = "CA" Then[/COLOR] SOM = SOM + cel.Offset(, i)
i = i + 1
Wend
End If
End Function