Donc pour ceux que ca interresse voila le code :
Et un GRAND merci a tous ceux qui on repondu a mes messages  
Bien qu ils ne furent pas nombreux    
mais bon c pas la quantité c la qualité qui compte    
 
aller et merci encore    
 
Sub import()
 
   Dim rstsource As Recordset
   Dim rstcible As Recordset
   Dim rstContenu As Recordset
   Dim MyNum As Integer
   Dim MyString As String
   Dim dbs As Database
   Dim Compteur As Integer
   Dim i As Integer
   Dim j As Integer
   Dim dbs2 As Database
   
 
Set dbs = OpenDatabase("PQP97.mdb" )
Set dbs2 = OpenDatabase("Urcam-Pqp.mdb" )
Set rstcible = dbs2.OpenRecordset("LOL", dbOpenDynaset)
Set rstsource = dbs.OpenRecordset("PROJETS", dbOpenDynaset)
 
 
Set dbs = OpenDatabase("PQP97.mdb" )
 
Compteur = 0
 
 Do While Not rstsource.EOF
        Set rstContenu = dbs.OpenRecordset("SELECT finalite from [PROJETS]" & rstsource.Fields(0).Value, dbOpenDynaset)
        MyString = ""
        If Not rstContenu.EOF Then
            MyString = HyperlinkPart(rstContenu.Fields(0).Value, acDisplayText)
            rstContenu.MoveNext
            Do While Not rstContenu.EOF
                MyString = MyString & ", " & HyperlinkPart(rstContenu.Fields(0).Value, acDisplayText)
                rstContenu.MoveNext
            Loop
        End If
         
        With rstcible
               .AddNew
               ![facteur] = rstsource.Fields(4).Value
               If Len(MyString) > 0 Then
                    '.Fields(1) = MyString
                Else
                    .Fields(0) = Null
                End If
               .Update
        End With
   
      rstsource.MoveNext
   Loop
   rstcible.Close
End Sub

Tu vas t'faire engueuler toi... Ca servait à rien d'ouvrir un nouveau topic pour ça, fallait utiliser l'ancien !!!  

c vrai desoler mais bon c etait pour que ceux qui m aient aider puise voir le message et j etait trop content quand ca a marcher pour reflechir mais je le redi t a entierement raison