Option Explicit
Sub test()
Dim table, a, i As Long, j As Long, s As String, tf As Boolean
table = Array(1, 5, "A", 4, 9, "a", 7, 3, 6, -1)
tf = True
For i = 0 To UBound(table)
a = table(i)
For j = i + 1 To UBound(table)
tf = tf And (table(j) <> a)
Next j
If Not tf Then Exit For
Next i
If tf Then s = "Tous différents" Else s = "Doublons !"
MsgBox s
End Sub