Recopier une ligne sur une autre feuille avec variable

Bonjour

Je cherche à savoir si il y a possibilité de créer automatiquement le double d'une ligne sur une autre feuille en fonction d'une variable.

Dans l'exemple joint, je souhaiterais que si dans la colonne M le distributeur Exertis apparait, automatiquement, la ligne complète se recopie sur la feuille OP Exertis.

Merci de votre aide

Bonjour

Code à essayer et à placer dans la feuille Opé MKG 2016

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dlg As Integer
If Not Intersect(Target, Columns("M")) Is Nothing Then
    dlg = Sheets("OP Exertis").UsedRange.Rows.Count + 1
    Range("A" & Target.Row & ":T" & Target.Row).Copy Sheets("OP Exertis").Range("A" & dlg)
End If
End Sub

Pour le placer :

• clique droite sur l'onglet Opé MKG 2016
• choisir l'option "visualiser le code"
• coller le code ci-dessus dans la fenêtre

Il suffit de compléter la colonne M du mot Exertis ensuite

Si ok, clique sur le v vert à coté du bouton EDITER pour clôturer le fil lors de ta réponse

Crdlt

Bonjour Dan

J'ai essayé mais il y a un bug.

Peut etre est-ce du à un autre code que j'ai sur cette même feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
    If UCase(Target.Value) = "MKT" Then ScrollArea = Cells(Target.Row, 10).Address
ElseIf Target.Column = 10 Then
    If Target.Value <> "" Then
        ScrollArea = ""
    Else
        If UCase(Target.Offset(0, -1).Value) = "MKT" Then ScrollArea = Cells(Target.Row, 10).Address
    End If
End If
End Sub

Y a t-il une manip à faire pour avoir 2 code sur la même feuille ?

Merci

@dan

J'ai cherché et fait quelques bidouillages et ca semble fonctionner.

merci