Bonjour,

J'ai un tableau avec des données sur une Feuille "Investissement", je voudrais que certaines lignes de ce tableau soit transférées vers une autre feuille "Suivi A.Terane" si le chargé de l'opération en colonne J est "AT".

J'ai mi en place ce code mais cela ne fonctionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Dim LigneAjout As Long
Dim NumLig  As Long
    If Target.Column = 10 Then
        Set WsCible = Worksheets("Suivi A.Terane")
        Set WsSource = Worksheets("Investissement")
        With WsCible
            LigneAjout = .Range("J" & .Rows.Count).End(xlUp).Row + 1
            If Target.Value = "AT" Then
                Target.EntireRow.Copy Destination:=WsCible.Cells(LigneAjout, 1)
            End If
        End With
        Set WsCible = Nothing
        Set WsSource = Nothing
    End If
End Sub
L'erreur qui s'affiche est : "Nom ambigu détecté : Worsheet_change"

Merci d'avance pour vos réponses