'On identifie la dernière ligne vide en partant du bas
L = WS.Range("A65536").End(xlUp).Row + 1
With WS
'ici on calcule le numéro de la fiche
Cells(L, 6).Select
numero = WorksheetFunction.CountIf(Range(Cells(1, 5), Cells(L, 5)), ComboBox0.Value) + 1
TextBox2.Value = Format(numero, "000")
'MsgBox numero 'Vérification, utile seulement en cas de vérification lors débuggage