Stocker les adresses de cellules

Bonjour,

Je suis un grand débutant en macro, et j'ai énormèment de mal à effectuer ce que je cherche à faire.
J'ai un tableau assez conséquent, chaque ligne possédant une remarque propre, et pour en faciliter la gestion, certaines remarques importantes sont écrites en rouge.
Je cherche maintenant, à l'aide d'une macro, à répertorier l'ensemble des adresses ou ces remarques apparaissent sous forme d'un tableau.

Voila le code que j'ai pour l'instant tapé:

Sub Bouton1()
Dim elm As Object
Dim alm As Object
Dim x() As Object
Dim i As Integer, j As Integer, k As Integer
k = 165
ReDim x(k)
i = 1
For Each elm In Range("Papet!Q35:Papet!Q200")
If elm.Font.ColorIndex = Range("I12").Font.ColorIndex Then
x(i) = elm.Address
End If
i = i + 1
Next elm
j = 1
For Each alm In Range("L10:L20")
alm = x(j)
j = j + 1
Next alm
End Sub

Cependant, l'éxécution de ce code ne fait absolument rien...
Merci de votre aide, et désolé si je pose une question triviale.