I have a column B which contains an indicator like AB, AC, AD, AC AA, etc.
In the firsts column, I want to add line with the different value in cell
"A1" (for each different indicator). I tried this but doesn't word.

Dim C As New Collection
Dim Ndx As Long
On Error Resume Next
For Ndx = 1 To 98
C.Add Range("B3:B100"), Range("B3:B100") 'Range("B3:B100") is my vector
Next Ndx
For i = 1 to C.Count
rows("1:1").insert
sheets("A1").value = C.value(i)
next i


--
Alex St-Pierre