Salut Max 18
2 choses, il faut changer tes libellés dans ta feuille
Groupe1 en Groupe(espace)1
Et voici le code à mettre dans ton UsF
Private Sub ComboBox1_Change()
Dim DLig As Long, NbVal As Integer
DLig = Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row
NbVal = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("B2:B" & DLig), Me.ComboBox1.Text)
Me.Label1.Caption = NbVal
End Sub
A+