Private Sub UserForm_Initialize()
Dim Valo As Variant
Dim i, h, k As Integer
Dim Num As String
Dim Flag1 As Boolean
Num = "0123456789"
'Liste A = client sur référence
ComboBox1.RowSource = ("A")
'Liste B = statut sur feuille référence
ComboBox2.RowSource = ("B")
With Sheets("Table")
Valo = .Range("A" & Range("A65536").End(xlUp).Row).Value
Valo2 = Valo
For k = 1 To 10
Valo2 = Replace(Valo2, Mid(Num, k, 1), "")
Next k
For i = 1 To Len(Range("A" & Range("A65536").End(xlUp).Row).Value)
For h = 1 To 10
If Mid(Valo, 1, 1) = Mid(Num, h, 1) Then
Flag1 = True
End If
Next h
If Flag1 = False Then
Valo = Mid(Valo, 2, Len(Valo))
End If
Next i
TextBox1.Value = Valo2 & Valo + 1
End With
End Sub