Sub Macro5()
If feuille = "" Then Exit Sub
With Application
.ScreenUpdating = 0
Range("A4").Copy
Sheets(feuille).Range(cellule).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.CutCopyMode = False
.ScreenUpdating = 1
End With
End Sub