Sub Test()
' Pour tableau de A1 à F16
' Solution 1
Sheets("A").Range("A1:F16").Copy
Sheets("B").Paste
' Solution 2
Sheets("A").Range("A1:F16").Copy
With Sheets("B").Range("A1")
.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End Sub