Function ScoreDeParmi(Joueur, plage As Range, Qui As Long) As Variant
Dim t, i&
t = plage.Value
For i = 1 To UBound(t)
t(i, 1) = plage.Cells(i, 1).MergeArea.Cells(1, 1).Value
If t(i, 1) = "" Then t(i, 1) = ""
t(i, 5) = plage.Cells(i, 5).MergeArea.Cells(1, 1).Value
If t(i, 5) = "" Then t(i, 5) = ""
If t(i, 2) = Joueur Then ScoreDeParmi = IIf(Qui = 1, t(i, 1), t(i, 5)): Exit Function
If t(i, 4) = Joueur Then ScoreDeParmi = IIf(Qui = 1, t(i, 5), t(i, 1)): Exit Function
Next i
ScoreDeParmi = CVErr(xlErrNA): Exit Function
End Function