Voici comment j'ai résolu mon PB, me dire ce que vous en pensez !!
Je ne sais si je peux faire la même chose sans ouvrir Liste_Facture.xls
Vous verrez des ' sur les messages box c'est ce qui ma permis d'avancer pas à pas
merci pour ce cite !!!
Private Sub Mise_à_Jour_Click()
Dim wsList As Worksheet
Dim Numfact As Range
Dim MyFact As Workbook
Dim MyNumfact As Range
Dim lettre As Range
'mise en place des pointeurs sur fichier Liste facture
Set wsList = ThisWorkbook.Worksheets("Factures")
Set Numfact = wsList.Range("A3")
Set MyFact = Workbooks.Open("E:\rec_vba\Liste_Facture.xls")
'MsgBox "The name of the active sheet is " & ActiveSheet.Name
Set MyNumfact = Worksheets(1).Range("a2")
Do While Numfact.Value <> ""
Do While MyNumfact.Value <> ""
If MyNumfact.Value <> Numfact.Value Then
'MsgBox Numfact.Value
'MsgBox MyNumfact.Value
Set MyNumfact = MyNumfact.Offset(1, 0)
Else
'MsgBox " trouver et à remplacer " & Numfact.Value
Numfact.Offset(0, 13).Value = MyNumfact.Offset(0, 8).Value
Exit Do
End If
Loop
Set MyNumfact = Worksheets(1).Range("a2")
Set Numfact = Numfact.Offset(1, 0)
Loop
MsgBox " Fin "
'MsgBox Numfact.Value
'MsgBox MyNumfact.Value
End Sub