Sub Tirage()
Calculate
With Sheets("Partie") 'feuille de destination
.Select
.Unprotect
Sheets("Origine").Range("I2:K21").Copy 'nom de l'onglet à adapter à ton cas
.Range("C7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.Range("D4").Select
End With
End Sub