Sub Copy1()
Range("A20") = Range("B20").Value
Range("A20").Cut Destination:=Range("A20").Offset(1, 2)
Range("B20").Cut Destination:=Range("B20").Offset(1, 2)
Range("B20").Offset(1, 2).Interior.Color = vbGreen
End Sub
Sub Copy2()
Range("A20").Offset(1, 2) = Range("B20").Value
Range("B20").Cut Destination:=Range("B20").Offset(1, 2)
Range("B20").Offset(1, 2).Interior.Color = RGB(255, 255, 0)
End Sub
Sub Copy3()
Valeur = Range("B20")
Range("B20").ClearContents
Range("A20").Offset(1, 2) = Valeur
Range("B20").Offset(1, 2) = Valeur
Range("B20").Offset(1, 2).Interior.Color = RGB(255, 0, 255)
End Sub