Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Target, Range("A1:A5")).Address(0, 0) = "A1:A5" Then
Range("A1:A5").Copy
Sheets("[SIZE=3][COLOR=red][B]Feuil2[/B][/COLOR][/SIZE]").Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial xlPasteValues
End If
End Sub