array;range

Bonjour, Je cherche à mettre les valeurs uniques de A3:A8 dans un Array, la façon que j'ai trouvé pour y arriver est Sub test() Dim vars0() As Variant ReDim vars0(0) lali1 = 8 Ini1 = False For i = 3 To lali1 valeur = Cells(i, 1) On Error Resume Next...