'Faire un sélection multiple (touche Ctrl) sur 2 cellules
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 2 And Target.Areas.Count = 2 Then
Target.Areas(2).Copy Target.Areas(1)
Target.Areas(1).Offset(, 1).Select 'sélection de la cellule à droite
End If
End Sub