Merci pour ta réponse.
Voici une partie du code de la macro Score:
Sub Score()
Dim a(5), b(5)
z1 = "A" + e: z2 = "B" + e: z3 = "C" + e
a(1) = Range(z1).Value: a(2) = Range(z2).Value: a(3) = Range(z3).Value
If a(1) = 0 Or a(2) = 0 Or a(3) = 0 Then GoTo 10
If a(1) > 0 Then b(1) = 1 Else b(1) = -1
If a(2) > 0 Then b(2) = 1 Else b(2) = -1
If a(3) > 0 Then b(3) = 1 Else b(3) = -1
m = b(1) + b(2) + b(3)
If Abs(m) = 3 Then
Range(z4).Interior.Color = 12632256: Range(z5).Interior.Color = 12632256
If m = 3 Then Range(z7).Value = 1: Range(z8).Value = 0
If m = -3 Then Range(z7).Value = 0: Range(z8).Value = 1
10:
End Sub
Quant au code de la feuille , j'ai ajouté " Public e " au début, mais le problème subsiste.
Merci pour ton aide.
Cordialement.
Chris10000