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...