Sub DéplaceCellule_D()
'
' DéplaceCellule_D Macro
'
' Touche de raccourci du clavier: Ctrl+d
'
With Selection
If .Cells.Count <> 2 Or .Areas.Count <> 2 Then Exit Sub
.Item(1).Copy
With .Areas(2)(1)
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteComments
.Value = Date
End With
End With
Application.CutCopyMode = False
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column
[A4].Copy
Cells(Ligne, Colonne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub