Function Ncoup$(r As Range, plage As Range)
'le 2ème argument force le recalcul de la fonction
If r(r.Count) = "" Then Exit Function 'pas de BINGO
Dim dat As Variant, nlig&, i&
dat = r(1)
nlig = plage.Count
Do While r(i, 1) = dat
If plage(nlig + i) <> "" Then Exit Function 'si BINGO
i = i - 1
Loop
Ncoup = "Le " & 1 - i & IIf(i, "e", "er") & " coup est Ggt"
End Function