j'ai fais une erreur dans mon programme mais j'arrive pas à la corriger.
Pourriez vous m'aidez

Sub jeu()
Dim x As Integer
Dim y As String
Dim s As Integer
x = Int(Rnd() * 0) + 2
s = InputBox("entre votre choix entre 0 et 2")
If x = 0 And s = 1 Then
MsgBox ("vous avez perdu")
Else
If x = 0 And s = 2 Then
MsgBox ("vous avez gagné")
Else
If x = 0 And s = 0 Then
MsgBox ("Match nul")
Else '0 symbolisera la pierre, 1 la feuille et 2 les ciseaux.
If x = 1 And s = 0 Then
MsgBox ("Vous avez perdu")
Else
If x = 1 And s = 1 Then
MsgBox ("Match nul")
Else
If x = 1 And s = 2 Then
MsgBox (" vous avez gagné")
Else
If x = 2 And s = 0 Then
MsgBox ("Vous avez gagné")
Else
If x = 2 And s = 1 Then
MsgBox ("vous avez perdu")
Else
If x = 2 And s = 2 Then
MsgBox ("Match nul")
End If
End Sub

ça fait 1 an que j'ai plus fait de VBA,

Je pense que c'est un problème de "{}" après les Else, car pour chaque if, il y a une seule instruction, mais le premier Else contient tout les autres if et else, je pense que c'est ça, sinon de mémoire je dirais que tu dois mettre un End if à la fin de CHAQUE IF

Je crois plutôt qu'il faut attacher le Else et le If (ElseIf en fait).

Quelle est le message d'erreur ?

Ça serait pas mieux d'utiliser une instruction case ?