Tri de cellules

Bonjour,

J'ai un tableau excel dont les données de la colonne D et de la colonne E colonnes sont mises à jour grâce à un collage spécial au format texte avec un lien issu d'un fichier word.

Exemple: la cellule E2 'vaut'

=Word.Document.8|'D:\Validation\Cvi3\Programmation suite CDC\Validation Manual for CVI3 version 1.doc'!'!OLE_LINK207'

La colonne D liste des références de tests provenant d'un document word, et la colonne E le résultat qui ne pourra être que (OK, KO, NIY, INT)

Ces deux colonnes ne dépasseront pas 500 llignes maxi, la première line comme à 2.

Je dois faire une macro me permettant de regrouper sur cette feuille 'test table' dans les colonnes K et L les référence de tests dont le résultat est OK.

Détaillé :

|reference of test| status|

RT-CAA OK
RT-VB KO
RT-VGR INT
RT-CCACS NIY
RT-CVIV OK

Le résultat de la macro dans les colonnes K et L serait de la forme suivant

| K | L |

RT-CAA OK
RT-CIV OK

La colonne K regroupe l'ensemble des références dont le status est OK.

J'ai récupéré dans un autre forum la macro ci dessous permettant de regrouper dans un tableau sur une même feuille.
Mais cela ne marche pas du tout à cause du lien dynamique.

Private Sub CommandButton1_Click()

[K2:M65000].ClearContents 'Suppression des caractères dans la plage donnée
ligne = 2
For Each c In [f:f].SpecialCells(xlCellTypeConstants, 23)
If InStr(UCase(c.Value), UCase([G2])) > 0 Then 'G2 constitue est la chaîne de caractère recherchée dans la tableau
Cells(ligne, 11) = c 'Copie dans la cellule colonne k
Cells(ligne, 10) = c.Address 'Copie dans la cellule colonne l
ligne = ligne + 1
End If
Next c

End Sub

J'ai essayé d'êtr le plus clair possible. Quelqu'un aurait'il une solution ?
Je bloque depuis deux jour sur ce problème !!!!