Sub Selection5()
Dim R As Object
Set R = ActiveSheet.Shapes(Application.Caller).TopLeftCell
Set CelDest = Range("C" & ActiveCell.Row) 'pour définir la cellule de destination en colonne C de la ligne selectionnée
Range(R.Offset(0, 2).Address, R.Offset(0, 6).Address).Copy Destination:=CelDest
If CelDest.Offset(0, 6) <> "" Then
Range(R.Offset(0, 2).Address, R.Offset(0, 6).Address).ClearContents
End If
End Sub