Jeu de paires - VBA

Bonsoir à tous,

J'aimerais réaliser un court jeu de paire, en effet, j'ai deux colonnes de trois images chacune, et chacune d'elle à un double dans l'autre colonne. J'aimerais que l'utilisateur puisse sélectionner les cartes à sa guise pour en faire des paires. Seulement, mon code comporte des erreurs, l'utilisateur ne peut pas cliquer où il le souhaite et mon message de perte de point s'affiche sans cesse.

J'aurais besoin de votre aide pour comprendre mes erreurs.

D'avance, je vous remercie !

Private Sub ValeurCarte()

carte1 = 0
carte2 = 0

If coup <= 1 Is Then 'j'aimerais que si l'utilisateur n'est qu'à son premier coup, aucun message de perte de points n'apparaissent (je ne sais comment formuler ce "rien")

End Sub

Private Sub Image1_Click()

coup = coup + 1

carte1 = 1

If carte1 = 1 And carte2 = 2 Then

score = score + 4
MsgBox ("Bonne réponse !" & vbCr & "4 points" & vbCr & "" & vbCr & "C'est un couple d'eiders à duvet !")

Me.Image1.Visible = False
Me.Image5.Visible = False

Else
If carte1 = 1 And carte2 = 1 Or carte1 = 1 And carte2 = 3 Or carte1 = 1 And carte1 = 1 Or carte1 = 1 And carte1 = 2 Or carte1 = 1 And carte1 = 3 Then

score = score - 2
MsgBox ("Mauvaise réponse !" & vbCr & "-2 points" & vbCr & "" & vbCr & "Ce n'est pas la même espèce !") 'ce message de perte de point s'affiche également à l'ouverture du Userform

End If

End If

End Sub