Function NewRéfUnique(Référence As String)
Dim Dc As Object
Set Dc = CreateObject("Scripting.Dictionary")
Tb = [_RéfStock]: For I = 1 To UBound(Tb): Dc(Tb(I, 1)) = Tb(I, 1): Next
Tb = [_RéfRéservé]: For I = 1 To UBound(Tb): Dc(Tb(I, 1)) = Tb(I, 1): Next
Tb = [_RéfPrété]: For I = 1 To UBound(Tb): Dc(Tb(I, 1)) = Tb(I, 1): Next
Tb = [_RéfDoté]: For I = 1 To UBound(Tb): Dc(Tb(I, 1)) = Tb(I, 1): Next
Tb = [_RéfRestitué]: For I = 1 To UBound(Tb): Dc(Tb(I, 1)) = Tb(I, 1): Next
If Dc.exists("") Then Dc.Remove ("")
NewRéfUnique = Not Dc.exists(Référence)
Set Dc = Nothing
End Function