Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n&, MaPlage As Range
n = Cells(1048576, 2).End(xlUp).Row
If Target.Row = n + 1 And Target.Column = 2 Then
Set MaPlage = Range(Cells(n, 1), Cells(n, 11))
MaPlage.Copy (Cells(n + 1, 1))
End If
Set MaPlage = Nothing
End Sub