Tableaux liés avec mise à jour automatique

Bonjour,

Supposons 2 tableaux (Tableau1 et Tableau2) dans 2 feuilles différentes (Feuille1 et Feuille2). J'aimerais que lorsque j'ajoute une ligne à Tableau1, la même ligne s'ajoute automatiquement à Tableau2. Ça semble si simple, mais je n'y arrive pas...

Salut BleuM,

petit délire vite fait...
En [H1], un marqueur rouge ou vert qui autorise ou non la copie d'une ligne incomplète ou complète en Feuille 'B'.
Ici, le code en [A:A] est sensé être unique : la macro le recherche en Feuille 'B' pour recopier la ligne sur elle-même ou en créer une nouvelle.

Ça te fait déjà du grain à moudre!

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim iRow%, iRowT%, iNb%
'
Application.EnableEvents = False
'
If Not Intersect(Target, Columns("A:G")) Is Nothing Then
    iRow = Target.Row
    iNb = WorksheetFunction.CountA(Range("A" & iRow & ":G" & iRow))
    '
    On Error Resume Next
    If ([H1].Interior.Color = RGB(0, 175, 80) And iNb = 7) Or ([H1].Interior.Color = RGB(255, 0, 0) And Range("A" & iRow).Value <> "") Then
        With Worksheets("B")
            Set rCel = .Columns(1).Find(what:=Range("A" & iRow).Value, lookat:=xlWhole, LookIn:=xlValues)
             If Not rCel Is Nothing Then
                iRowT = rCel.Row
            Else
                iRowT = .Range("A" & Rows.Count).End(xlUp).Row + 1
            End If
            .Range("A" & iRowT & ":G" & iRowT).Value = Range("A" & iRow & ":G" & iRow).Value
        End With
    End If
    On Error GoTo 0
End If
'
Application.EnableEvents = True
'
End Sub

A+

D'accord, je vais voir ce que j'arrive à faire...

Merci.