Ecriture multi classeur

[Compress]

Bonjour la communauté, voilà le problème du jour.
Dans ce code, les variables se définissent bien, les valeurs contenues sont correctes, les réfèrences aux cellules aussi mais rien ne s'écrit dans notre fichier BDL_v2.xls alors qu'il trouve bien toutes les informations et que je n'ai aucune erreur de compilation.

Sub Upload_BDL()
'
' nom Upload BDL
' Macro enregistrée le 13/12/08 par Allan
'
Dim der_ligne As Integer
Dim chemin As String
Dim nom_fichier As String
Dim bdl As Object
'Dim bdl As String
Dim Plage_ILN_USF As Range
Dim Range_ILN_USF As Range
Dim Range_BDL_volume_ILN As Range
Dim vol_ILN As Range

chemin = "G:\BDL\"
nom_fichier = "BDL_v2.xls"

Set bdl = CreateObject(class:="excel.application")
        bdl.Visible = True 'à modifier
        'bdl.interactive = true 'pas nécessaire de l'écrire qd true
Set bdl = Workbooks.Open(chemin & nom_fichier)
der_ligne = Sheets("Amont_ILN").Cells(65536, 1).End(xlUp).Row + 1 'définition de la ligne où on va écrire des données

Windows("Userform_BDL_v7.xls").Activate
Sheets("Synthèse").Select
Set Plage_ILN_USF = Range(Cells(16, 2), Cells(16, Cells(17, 256).End(xlToLeft).Column))
    For Each Range_ILN_USF In Plage_ILN_USF
        If Range_ILN_USF <> "" Then 'rajouter le else au cas où l'ILN ne serait pas dans la base de données



            'Call Envoyer_Identification 'remplissage automatique des identifiants projet

            '============================ Recherche des données Volumes et Coûts =============================
            Windows(nom_fichier).Activate
            Sheets("Volume_ILN").Select
            Set Range_BDL_volume_ILN = Range(Cells(1, 1), Cells(1, Cells(1, 256).End(xlToLeft).Column))
            Set vol_ILN = Range_BDL_volume_ILN.Find(What:=Range_ILN_USF.Value, LookIn:=xlValues, lookat:=xlPart) 'recherche de l'ILN de la synthèse dans l'onglet "Volume_ILN"
                [COLOR="Red"]vol_ILN.Offset(der_ligne, vol_ILN.Column).Value = Range_ILN_USF.Offset(2, 0).Value 'volume T&C
                vol_ILN.Offset(der_ligne, vol_ILN.Column + 1).Value = Range_ILN_USF.Offset(2, 1).Value 'volume BIW
                vol_ILN.Offset(der_ligne, vol_ILN.Column + 2).Value = Range_ILN_USF.Offset(22, 0).Value 'cout €/m3 TC
                vol_ILN.Offset(der_ligne, vol_ILN.Column + 3).Value = Range_ILN_USF.Offset(22, 1).Value 'cout €/m3 BIW
                vol_ILN.Offset(der_ligne, vol_ILN.Column + 4).Value = Range_ILN_USF.Offset(23, 0).Value 'cout €/veh TC
                vol_ILN.Offset(der_ligne, vol_ILN.Column + 5).Value = Range_ILN_USF.Offset(23, 1).Value 'cout €/veh BIW
                vol_ILN.Offset(der_ligne, vol_ILN.Column + 6).Value = Range_ILN_USF.Offset(24, 1).Value[/COLOR] 'cout total ILN
End If
    Next
End Sub

Tout fonctionne sauf que les lignes en rouge ne font pas la copie de la valeur trouvée dans BDL_v2.xls
Auriez-vous une idée à proposer...
Merci d'avance.

PS : solution trouvée à l'offset plus loin... désolé du dérangement !!!