Sub Identifiant()
Set mondico = CreateObject("Scripting.Dictionary")
i = 1
For Each c In Range([b2], [b65000].End(xlUp))
temp = c.Value & c.Offset(, 1).Value
If Not mondico.exists(temp) Then
mondico(temp) = i
i = i + 1
End If
c.Offset(, 2) = Format(mondico.Item(temp), "00")
Next c
End Sub