Bonjour j'ai un fichier contenant 2 feuilles F1 et F2.
Avec en F des référence en A déjà présente et de B à F des indications à mettre a jour suivant la F2.

Et donc sur la F2 les même Référence que la F1 mais en B et de C à G la mise a jour des référence.

Actuellement j'ai ce code:

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
19
20
21
22
23
24
25
26
27
28
29
 
Option Explicit
Sub MAJ()
 
Dim i As Integer, j As Integer
 
Application.ScreenUpdating = False
 
With Sheets("F2")
    For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("A" & i) <> "" Then
            On Error Resume Next
 
            j = Application.WorksheetFunction.Match(Range("A" & i), .Range("B:B"), 0)
 
 
                    Range("B" & i) = .Range("C" & j)
                    Range("C" & i) = .Range("D" & j)
                    Range("D" & i) = .Range("E" & j)
                    Range("E" & i) = .Range("F" & j)
                    Range("F" & i) = .Range("G" & j)
 
        j = 0
        End If
 
    Next i
End With
    Columns("F:I").Replace What:="#N/A", Replacement:=""
End Sub

Ce qui me permet de mettre à jour ma F1 comme je le veux suivant les références présente.

Mais ce que je voudrais c'est ajouté en même temps les nouvelle référence présente en F2 sans celle déjà présente en F1

Voila je ne sais pas si c'est clair pour tout le monde?
Sinon je peux fournir un fichier pour ceux qui veulent.
Merci de votre aide.