Sub rechercherEquipe()
Dim equipe As Variant
Dim recherche As Range
equipe = UserForm1.ComboBox1.Value
Set recherche = Range("B5:LX5").Find(equipe, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)
If recherche Is Nothing Then
MsgBox ("Equipe non trouvée (ou non renseignée).")
Else
recherche.Columns.Select
End If
Unload UserForm1
End Sub