Sub debut(i As Integer, j As Integer)
Dim test As Integer
'est ce que le joueur a le droit de faire ça ?
test = Aligner(i, j, Tour)
If Remplissage(i - 1, j - 1) = 0 And test = 0 Then 'la case est vide le joueur peut y placer son pion
If Tour = 1 Then 'c'est au joueur un de jouer
'la soit je fais un gros if soit je trouve une methode avec i et j
UserForm1.B_&i&j.Caption = "J1" 'c'est bon il a jouer maintenant c'est au joueur 2
Remplissage(2, 0) = 1 'la case est remplie par le joueur 1
Tour = 2
Else
UserForm.B_&i&j.Caption = "J2"
Remplissage(2, 0) = 2 'la case est remplie par le joueur 2
Tour = 1
End If
Compteur = Compteur + 1
ElseIf test = 1 Then
MsgBox ("Vous n'avez pas le droit car 3 pions sont alignés")
Else
MsgBox ("Un joueur est deja sur la case vous ne pouvez pas jouer")
End If
End Sub