Copier des lignes d'une feuille dans une autre automatiquement

Bonjour,

J'aimerai pouvoir copier des lignes d'une feuille dans une autre par rapport à des critères

Par exemple dans la feuille entretien j'ai des lignes avec des plaques d'immatriculation CL-485-JN et j'aimerai que ça se copie dans l'onglet CL-485-JN mais je ne sais pas comment m'y prendre

Je met mon fichier en PJ

Merci d'avance

Bonsoir Bapt46,

Essaie ceci :

Option Explicit
Sub test()
    Dim r As Range, e, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    With Sheets("entretien").Range("b4").CurrentRegion.Offset(1)
        For Each r In .Columns(1).Cells
            If r.Value <> "" Then
                If Not dico.exists(r.Value) Then
                    Set dico(r.Value) = r(, 4).Resize(, 7)
                Else
                    Set dico(r.Value) = Union(dico(r.Value), r(, 4).Resize(, 7))
                End If
            End If
        Next
    End With
    For Each e In dico
        If Evaluate("isref('" & e & "'!a1)") Then dico(e).Copy Sheets(e).Range("b4")
    Next
End Sub

klin89

Merci beaucoup ça marche très bien