Sub test()
Dim Plage As Range
With Windows("Statistiques - R.xls").Sheets("Stats")
Set Plage = .Cells(1, .Range("IV1").End(xlToLeft).Column + 1)
Range("B1:B81").Copy
Plage.PasteSpecial Paste:=[B]xlPasteValuesAndNumberFormats[/B], Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub