Bonjour,

J'espère que vous allez bien

Je viens vers vous puisque j'ai une question.
Je cherche à parcourir sur Excel ma colonne B de la feuille 1 et d'ajouter en feuille 2 la ligne de la valeur manquante (par rapport à ma vérif sur la feuille 1 de la colonne B) .

J'obtiens ce code mais il m'indique une erreur que je n'arrive pas à résoudre.

Peut-être que je fais trop compliquée alors si vous avez plus simple n'hésitez 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
19
20
21
22
23
 
Sub Test()
Dim lg&, f1 As Worksheet, f2 As Worksheet
    Application.ScreenUpdating = False
    Set f1 = Sheets("Liste1")
    Set f2 = Sheets("Liste2")
    f1.Activate
    lg = Application.Max( _
        f1.Columns(2).Find("*", , , , xlByRows, xlPrevious).Row, _
        f2.Columns(2).Find("*", , , , xlByRows, xlPrevious).Row)
 
---Ici je cherche à copier mes valeurs ailleurs pour ensuite pouvoir les recoller --- 
    Range("o2") = "=COUNTIF(Liste2!b2:b" & lg & ",b2)=0"     'critère
    Range("a1:d" & lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Range("o1:o2"), CopyToRange:=Range("g1:j1"), Unique:=False
 
-- et la je cherche à compléter ma liste en feuille 2 avec les valeurs manquantes
 
    Range("g2:j" & [g65000].End(xlUp).Row + 1) _
    .Copy Destination:=f2.Range("b" & Rows.Count).End(xlUp)(2)
    Columns("g:o").Clear
    f2.Activate
End Sub
j'espère que vous me comprenez :/

merchi !!