Salut Cedric !
Essaie ça :
Sub BlaBla()
Sheets("Feuil1").Select
Range("A1").Select
Selection.Copy
Sheets("relance").Select
Range("F8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
@ +
Moa