Microsoft 365 Transférer ligne entière vers une autre feuille si oui sur la ligne

Option Explicit

Private Sub Worksheet_Change(ByVal T As Range)
If T.Count > 1 Then Exit Sub
If T.Column = 2 Then
If UCase(T.Value) = "OUI" Then Feuil2.Rows(Feuil2.[A65000].End(3).Row + 1).Value = Rows(T.Row).Value
If UCase(T.Value) = "NON" Then Feuil4.Rows(Feuil4.[A65000].End(3).Row + 1).Value = Rows(T.Row).Value
End If
End Sub

Private Sub Worksheet_Change(ByVal T As Range)
If T.Count > 1 Then Exit Sub
If T.Column = 2 Then
With Sheets(Switch(UCase(T) = "OUI", "Feuil2", UCase(T) = "NON", "Feuil4")): .Rows(.[A65000].End(3).Row + 1) = Rows(T.Row).Value: End With
End If
End Sub