@+Thierry

Salut Robert, Jim, le Forum

Tu t'es très bien débrouillé Robert, c'est une belle astuce. Je pense que, comme tu dis, si les joueur ne changent régulièrement, c'est amplement suffisant !!

Ou alors on Fabrique une Feuille à la volée avec le nom des joueurs...

Mais pour çà il faut deux placer deux ActiveX ListBox (de la barre d'outils "Contrôle") sur la Feuil1...

Dans le Private Module de cette même "Feuil1"

Private Sub Worksheet_Activate()
With Sheets("Feuil1").ListBox1
.AddItem "Pierre"
.AddItem "Paul"
.AddItem "Jacques"
.AddItem "Robert"
.AddItem "Jim"
End With

With Sheets("Feuil1").ListBox2
.AddItem "Pierre"
.AddItem "Paul"
.AddItem "Jacques"
.AddItem "Robert"
.AddItem "Jim"
End With
End Sub

çà pourrait être fait avec un ListFillRange... et les noms des jeurs saisie sur une feuille... mais c'est juste pour la démo

Ensuite toujours dans le même Private Module :

Private Sub ListBox2_Click()
Dim X As Byte
Dim WS As Worksheet

If ListBox1.ListIndex = -1 Then MsgBox "Selectionner un nom d'abord en list 1": Exit Sub
If ListBox1 = ListBox2 Then MsgBox ListBox1 & " Joue contre lui même ?": Exit Sub

For Each WS In Sheets
If WS.Name = ListBox1 & "-" & ListBox2 Or WS.Name = ListBox2 & "-" & ListBox1 Then
WS.Activate
GoTo Fin
End If
Next WS

X = Sheets.Count
Sheets.Add after:=Sheets(X)
With Sheets(X + 1)
.Name = ListBox1 & "-" & ListBox2
.Activate
End With

Fin:
End Sub

Voilà... C'est une autre approche...

Bonne Nuit à tous et toutes
@+Thierry