Re,
essaie avec ce début de code :
Option Explicit
Dim Cel As Range
Dim Derlig As Long, DerLi As Long
Dim Titres As Object
Dim x As Integer
Dim Division As String
Private Sub ComboBox1_Change()
DerLi = Sheets("Calendrier").[H65000].End(xlUp).Row
x = InStr(1, Me.ComboBox1, " vs ", 1)
Division = Application.Index(Range("A1:A" & DerLi), _
Application.Match(Left(Me.ComboBox1, x - 1), Range("B1:B" & DerLi), 0))
Me.Label2.Caption = Left(Me.ComboBox1, x - 1)
Me.Label3.Caption = Right(Me.ComboBox1, Len(Me.ComboBox1) - x - 3)
Me.Label4.Caption = Me.ComboBox1 & Chr(10) & Division
End Sub