Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage_Destination As Range
If Target.Column <> 1 Then Exit Sub
If Target.Value <> "" Then Exit Sub
Target.EntireRow.Copy
Set Plage_Destination = Me.[A20000].End(xlUp).Offset(1).EntireRow
Plage_Destination.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Plage_Destination.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub