Probleme vba et excel

Bonjour,

J'ai demandé sur autre forum de l'aide mais je n'arrive pas à avancer dans mon travail.

J'ai besoin de lier certaines cellules dans des feuilles différentes, pour ca j'ai un bout de code mais qui n'est pas adapté à mon probleme.

Voici le code :

<code/>
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Err_Workbook_SheetChange
'Déclaration ===============================
Dim F_1 As Worksheet
Dim F_2 As Worksheet
Dim Plg As Range
Dim Cel As Range
'Validité ==================================
If (Sh.Name <> "DATA" And Sh.Name <> "IMP.EXP.") Or _
Intersect(Target, [A1:E9]) Is Nothing _
Then GoTo Sort_Workbook_SheetChange
'MEI =======================================
Application.ScreenUpdating = False
Application.EnableEvents = False
Set F_1 = Sheets("DATA")
Set F_2 = Sheets("IMP.EXP.")
Set Plg = Intersect(Target, [A1:E9])
'Traitement ================================
For Each Cel In Plg
If Sh.Name = F_1.Name Then
F_2.Range(Cel.Address) = Cel
Else
F_1.Range(Cel.Address) = Cel
End If
Next Cel
'Sortie obligatoire ========================
Sort_Workbook_SheetChange:
Application.ScreenUpdating = True
Application.EnableEvents = True
Exit Sub
'Traitement des erreurs =====================
Err_Workbook_SheetChange:
MsgBox Err.Description, vbCritical + vbOKOnly, "ERREUR n°" & Err.Number
Resume Sort_Workbook_SheetChange
End Sub
</code>

Ce que je veux c'est que la cellule "D3" de la feuille "DATA" soit liée à la cellule "B8" de la feuille "IMP.EXP." et que la cellule "N3" de la feuille "DATA" soit liée à la cellule "C8" de la feuille "IMP.EXP." et ansi de suite sur beaucoup de cellules. Ensuite une fois que toutes les cellules qui m'intéresse sont liées, elles sont dispercées dans la feuille "DATA" et sur une seull ligne dans la feuille "IMP.EXP.". Je n'ai plus qu'a copier cette ligne dans une troisième feuille qui me sert de base de donnée" que je nomme "DB".