Sub Annotations()
Dim Cel As Range, nfac
On Error Resume Next
With Workbooks("toto.xls").Sheets("Feuil1") 'sur l'ancien fichier
For Each Cel In .Range("F:F").SpecialCells(xlCellTypeConstants, 7)
nfac = .Range("B" & Cel.Row)
Range("F" & Application.Match(nfac, Range("B:B"), 0)) = Cel 'sur le nouveau fichier
Next
End With
End Sub