For i = 0 To 1 ' 1 = nombre de cellule à droite
Range(Target.Address).Offset(0, i).Select
V = Selection.Formula
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.Formula = V
Next i
Range(Target.Address).Select