Extraction Différences 2 plages

Bonjour

Dans le fichier joint, le code suivant pour extraire les lignes non présentes dans une plage par rapport à l'autre.

Je cherche à comprendre pourquoi le code fonctionne uniquement quand la feuille active est la feuille 2 et non sur les 2 autres.

Certainement simplissime pour vous

Merci d'avance

Sub diffdeuxplages()
Dim Plage As Range, c As Range, Ligne As Long
Set Plage = Sheets(2).Range("A1", Range("A65536").End(xlUp))
Ligne = 1
    For Each c In Plage
        If c.Offset(0, 1) = "A9025" Or c.Offset(0, 1) = "A9050" Or c.Offset(0, 1) = "S4000" Then
            If WorksheetFunction.CountIf(Sheets(1).Range("A:A"), c.Value) = 0 Then
                Sheets(3).Range("A" & Ligne).Value = c.Value
                Sheets(3).Range("B" & Ligne).Value = c.Offset(0, 2)
                Ligne = Ligne + 1
            End If
        End If
    Next c
End Sub

Bonjour,

Ligne 3, tu ne précises pas la feuille devant Range("A65536").End(xlUp)

Bonjour

Quel andouille je suis !

Merci Pedro22

boby63 a écrit :

Bonjour

Quel andouille je suis !

Merci Pedro22

Bonjour,

ça arrive même au meilleurs ! A force d'avoir le nez sur le code, on ne voit pas toujours où est le soucis.