Oui à une vache près... (j'avais fait une petite erreur !)
Mais sur le fond c'est à peu près ça chaque bouton comporte le même code.
Donc pour éviter d'avoir à répéter le même code 16 fois je vais faire une sub unique qui sera appelée par les 16 boutons...
Private Sub Unique(i%) '(% = as Integer)
STATUS = Not STATUS
ShowCard i 'on la rend visible
If STATUS Then 'Status = True (la première carte vient d'être cliquée:
MEM = i 'on mémorise la carte découverte
Else 'Status repasse à False (la deuxième carte vient d'être cliquée on décmanche les calculs...
Call calcul(i)
End If
End Sub
Chaque bouton appelera donc cette sub unique en lui passant juste sont indice en paramètre.
Dim STATUS As Boolean, MEM%
Private Sub Carte_1_Click()
Call Unique(1)
End Sub
Tu remarqueras au passage que j'ai rajouté une deuxième variable Mem qui mémorise l'indice de la première carte découverte.
Ensuite j'ai un peu adapté ta proc de calcul...
Le résultat :
A+