Copy excel macro

Bonjour,
M'est-il possible d'écrire la macro ci-dessous

For i = 1 To 220 Step 11
If Cells(i + 1, 3) <> "" Then
Range(Cells(i + 1, 2), Cells(i + 1, 3)).Copy
Range(Cells(i + 1, 17), Cells(i + 1, 18)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next i

en utilisant la formulation "copy destination" comme ci-dessous

For i = 1 To 220 Step 11
If Cells(i + 1, 3) <> "" Then
Range(Cells(i + 1, 2), Cells(i + 1, 3)).Copy Destination:=Range(Cells(i + 1, 17), Cells(i + 1, 18))
End If
Next i

ça peut me servir pour des situations plus complexes.
Merci.