Tri de résultats d'une recherche en VBA Excel

Bonjour,
Je suis entrain de créer un petit bouton de recherche en vba en fonction de couleur voici le code

Private Sub CommandButton2_Click()
   Dim Cell As Range
  
  For Each Cell In Range("D2:D200")
        If Cell.Interior.ColorIndex = 6 Then
            MsgBox "J'ai trouvé une cellule jaune : " & Cell.Address
  
  
       End If
   Next
End Sub

et ce que je souhaiterais c'est trié ces résultats en effet pour l'instant le résultat est donné sous forme d'un message box, mais si j'ai 200 résultats j'ai 200 msgbox qui ressort...
je souhaiterais (si possible) connaitre une fonction (ou autres) qui me permettrais de ressortir ces résultats dans une feuil Excel vide, qu'il y ait une extraction des résultats!
j'attends vos propositions.
Merci



--
Google is your friend!