With UserForm1
Dim FEUILLE As Worksheet
For Each FEUILLE In ThisWorkbook.Worksheets '=============================POUR NE CHARGER QUE LES EQUIPES
If IsNumeric(Right(FEUILLE.Name, 1)) Then .ComboBox1.AddItem FEUILLE.Name
Next
.ComboBox1.Value = .ComboBox1.List(0)
Worksheets("EQUIPE_1").Activate ' JUSTE POUR S'EN SERVIR DE BASE POUR LA CREATION DES COLONNES DE LA LISTVIEW