XL 2019 copier automatique des donnes en fonction d'un critère

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin2: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [W2:W1000]) Is Nothing And Target = "VA" Then
         Application.ScreenUpdating = False
         Transfert "MQT AUTRES CANAUX", Target.Row
    End If
Fin2:
Application.ScreenUpdating = True
End Sub

Sub Transfert(NomFeuille$, L%)
    Set F = Sheets(NomFeuille)
    With Sheets("VA")
        DL = 1 + .[A65500].End(xlUp).Row
        .Cells(DL, "A") = F.Cells(L, "F")       ' NCLI/ND
        .Cells(DL, "B") = F.Cells(L, "V")       ' N° demande=Num DDE
        .Cells(DL, "C") =...