Bonjour,
Comme expliqué hier à une autre personne, il serait judicieux de donner TOUTES les conditions dès le début afin de ne pas reprendre le code de multiples fois.
Dans ce cas
Private Sub ListBox1_Click()
Worksheets(Me.ListBox1.List(Me.ListBox1.ListIndex, 0)).Activate
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim i%
For i = 2 To Worksheets.Count
If Worksheets(i).Visible = True Then Me.ListBox1.AddItem Worksheets(i).Name
Next i
End Sub
Cdlt,
PS : A Xmpenpl : Je viens de relire en effet tu passes par une feuille paramètre, j'en suis plutôt fan aussi ça permet plus de flexibilité, surtout quand on a des multiples listes de validation et permet de voir ce qu'on rentre vraiment dans l'USF.