Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ShDest As Worksheet
If (Sh.Name = "Feuil2" Or Sh.Name = "Feuil3") And Sh.Range("A" & Target.Row) <> "" _
And Sh.Range("B" & Target.Row) <> "" [COLOR=Blue][B]And (Target.Column = 1 Or Target.Column = 2)[/B][/COLOR] Then
Set ShDest = Sheets("Feuil1")
With ShDest
i = .Cells(22, 1).End(xlUp).Row
Sh.Range("A" & Target.Row & ":B" & Target.Row).Copy .Range("A" & i + 1)
.Range("A1").CurrentRegion.Sort Key1:=.Range("A1:B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End If
End Sub