Bjr Papy Victor,
tu peux essayer cette macro.
Sub Macro
Windows("Fichier1.xls").Activate
Range("B2").Copy
Windows("Fichier2.xls").Activate
Range("B2").PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= False, Transpose:=False
Application.CutCopyMode = False
End Sub
Dan