Sub Copie_au_hasard()
ActiveCell.Offset(0, 1).Copy 'Copie la cellule d'a coté
With ActiveCell.Offset(0, 5) 'Colle de 5 cellules à droite par rapport à la cellule sélectionnée
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteValues
.ClearOutline
End With
End Sub