Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Sheets("Feuil2").Range("A1").CurrentRegion.Clear
Sheets("tableaugénéral").Range(Range("b1"), Range("b1").End(xlDown)).Copy Destination:=Sheets("Feuil2").Range("a1")
Sheets("tableaugénéral").Range(Range("c1"), Range("c1").End(xlDown)).Copy Destination:=Sheets("Feuil2").Range("b1")
Sheets("tableaugénéral").Range(Range("e1"), Range("e1").End(xlDown)).Copy Destination:=Sheets("Feuil2").Range("c1")
Sheets("Feuil2").Range("A1").CurrentRegion.Borders.Value = 1
Application.ScreenUpdating = True
End Sub