effectivement il y beaucoup plus que ca... les boutons s entrecroisent , mais j ai enlever de mon "original" sinon ca passe pas avec la taille... et oubier la fermeture de fenêtre et de modifier certain truc pour que cela fonctionne, voila qui est fait dans celui ci...
pour situer le "chemin" pour voir le bug qui me pose probleme, il faut appuiyer sur le bouton "lancer tournois" sur la feuille d'ouverture, puis "tour 2" et enfin "lancer le tour"
le bug se situe ici :
For Each Cel In PlageA
If Application.CountIfs(PlageG, Cel, PlageI, Cel.Offset(, 2)) > 0 Or _
Application.CountIfs(PlageG, Cel.Offset(, 2), PlageI, Cel) > 0 Then
Cel.Resize(, 3).Interior.ColorIndex = 6
Trouve = True
End If
Next Cel