ComboBoxnumero.Clear
With Sheets("encaissement client")
Set plage = .Range("A6:A" & .Range("A65000").End(xlUp).Row)
For Each cel1 In plage
If cel1.Offset(0, 91) = Label260 Then
L = Sheets("encaissement client").Range("A65536").End(xlUp).Row 'On identifie la dernière ligne en partant du bas
Sheets("encaissement client").Select 'On sélectionne la feuille sinon bug si elle ne l'est pas
For i = 6 To L 'Boucle départ (Ligne 3 de la feuille, jusqu'à dernière
With Me.ComboBoxnumero 'Avec la ComboBox1
.AddItem Sheets("encaissement client").Range("A" & i) 'On ajoute dans la ComboBox toutes les valeurs, cellules après cellules
End With
Next i