Macro Excel, Tableaux, Hypertexte : Réjouissance!

Bonjour à tous,

Actuellement en train de travailler sur un fichier excel, je me tourne vers vous.

Voici mon problème :

A1 Fraise_Rub1500_ZZ1847.docx
A2 Fraise_Rub1515_ZZ1898.docx
A3 Patate_Rub1879_ZZ0147.docx
A4 Patate_Rub1045_ZZ4587.docx
A5 Fraise_Rub7894_ZZ1545.docx
..etc..

J'obtiens ces données grâce à cette macro :

Sub Actualisation()
Dim Chemin As String, Fichier As String

'indique le répertoire contenant les fichiers
Chemin = "C:\"

'Boucle sur tous les fichiers docx du répertoire.
Fichier = Dir(Chemin & "*.docx")

numligne = 2

Do While Len(Fichier) > 0
Sheets("Données").Range("A" & numligne).Value = Fichier
numligne = numligne + 1
Fichier = Dir()
Loop
End Sub


A partir de ces données, je dois les ranger en deux tableaux distincts, sur une autre page du classeur excel.
Un tableau intitulé Fraise, et l'autre intitulé Patate.

Tableau Fraise :

Rub1500 ZZ1847 Lien hypertexte (C:\ nom du fichier en cellule A1)
Rub1515 ZZ1898 Lien hypertexte (C:\ nom du fichier en cellule A2)
Rub7894 ZZ1545 Lien hypertexte (C:\ nom du fichier en cellule A5)
..etc..

Idem pour le Tableau Patate..

J'ai réussi, par des manipulations de formules pas spécialement optimales, à isoler chaque données utiles pour mes tableaux. A savoir que j'ai séparé dans différentes cellules mon
Fraise_Rub1500_ZZ1847 en :

B1 Rub1500 C1 ZZ1847

J'ai donc supprimé Patate_""_"".docx

Mes problèmes sont donc:

- Je n'arrive pas à "ranger" ces données dans mes tableaux
J'ai bien essayé quelques recherchev mais je ne sais pas comment enlever les cellules vides dans mes tableaux. Du coup je suppose que ce ne doit pas être la bonne manipulation.

- Je n'arrive pas à créer les liens hypertexte en fonction du nom de mes fichiers en A1.


Voilà, j'espère que mon explication est plus ou moins compréhensible et que vous prendrez un petit peu de temps pour m'aider.

Merci d'avance!

Cordialement.