Je ne peux te donner que la procédure qui créée les liens hypertextes, le reste étant confidentiel (désolé c'est tout ce que je peux faire)
Sub lien(nbr_ligne, nbr_colonne, rel, item_id, code, reference)
'nbr_ligne est le nombre de ligne renseignée de la feuille
'nbr_colonne est le nombre de colonne renseignée de la feuille
'rel, item_id, code et refrence sont les numèros des colonnes sur lesquelles
'on travaille
'Création de deux nouvelles colonnes qui contiendront:
'le nom du fichier excel vers qui on veut faire un lien hypertexte
'le lien en lui même
Range(Columns(item_id + 1), Columns(item_id + 2)).Select
Selection.Insert Shift:=xlToRight
Columns(rel).Select
Selection.EntireColumn.Hidden = True
Columns(item_id).Select
Selection.EntireColumn.Hidden = True
nom = item_id + 1
lien_hyp = item_id + 2
Cells(1, nom) = 'Nom de fichier'
Cells(1, lien_hyp) = 'Lien Hypertexte'
'En fait le lien ne sera créèr que sur les lignes en rose (couleur 7)
For i = 2 To nbr_ligne
If Rows(i).Interior.ColorIndex = 7 Then
Cells(i, nom).Value = Cells(i, code).Value & '_' & Cells(i, reference).Value & '_' & '-' & '.xls'
fichier = '''' & Sheets('Feuil1').Cells(1, 1).Value & '\\' & Cells(i, nom).Value & ''''
nom_lien = '''' & Cells(i, nom).Value & ''''
Cells(i, lien_hyp).Formula = '=lien_hypertexte(' & fichier & ';' & nom_lien & ')'
Cells(i, lien_hyp).NumberFormat = 'General'
Cells(i, lien_hyp).Select
End If
Next i
Columns(nom).Select
Selection.EntireColumn.Hidden = True
End Sub