Private Sub CommandButton2_Click()
Application.ScreenUpdating = 0
[Tbo[code]] = ""
Set N° = CreateObject("Scripting.dictionary")
For Each C In [Tbo[Quoi]]: N°(C.Value) = "": Next
a = N°.keys
For n = 0 To N°.Count - 1
[Tbo].AutoFilter 2, a(n)
x = 0
For Each R In [Tbo[Quoi]].SpecialCells(12)
x = x + 1
R(1, 0) = Left(R, 2) & Left(R(1, 2), 2) & "-000" & x
Next
[Tbo].AutoFilter
Next
End Sub