Sub macopie()
SendKeys "{RIGHT}"
If vbYes = MsgBox("Cette Commande va écraser les montants déjà encodés" & vbCr & vbCr & vbCr & _
" Voulez-vous continuer ?", vbExclamation + vbYesNo, "Copie") Then
col = ActiveCell.Column
Range(Cells(5, col), Cells(8, col)).Value = Range(Cells(16, col), Cells(19, col)).Value
End If
End Sub