Différences plages minuscule / majuscule

Bonjour

J'ai 2 problèmes dans la macro suivante dans laquelle je cherche à lister en feuille 3 (col A) les valeurs de la feuille 1 (col C) non présentes dans la base de données en feuille 2 (col A)

Dim Plage As Range, c As Range, Ligne As Long
 Set Plage = Sheets(1).Range("C2", Range("C65536").End(xlUp))
 Ligne = 1
 For Each c In Plage
 If c.Value <> "" Then
    If WorksheetFunction.CountIf(Sheets(2).Range("A:A"), c.Value) = 0 Then
        Sheets(3).Range("A" & Ligne).Value = c.Value
        Ligne = Ligne + 1
    End If
 End If
 Next c

Premier problème : je dois me trouver en feuille 1 pour lancer la macro (sinon bug)

Deuxième problème : en cas de changement de casse dans la feuille 1 (cellule jaune en exemple : Cqcc6720 au lieu de CQCC6720), le code ne retourne pas cette valeur alors que pour moi les deux valeurs sont différentes.

J'espère avoir été suffisamment clair.

Merci d'avance et bonne journée

Bonjour Bobby, bonjour le forum,

Essaie avec ce code, il devrait résoudre tes deux problèmes :

Sub diffdeuxplages()
Dim OF As Worksheet
Dim OB As Worksheet
Dim OE As Worksheet
Dim TVF As Variant
Dim TVB As Variant
Dim I As Long
Dim Ligne As Long

Set OF = Worksheets("Feuil1")
Set OB = Worksheets("BD")
Set OE = Worksheets("Erreurs")
TBf = OF.Range("A1").CurrentRegion
TBB = OB.Range("A1").CurrentRegion
Ligne = 1
For I = 2 To UBound(TBf, 1)
    If TBf(I, 3) <> "" Then
        For J = 2 To UBound(TBB, 1)
            If TBf(I, 3) = TBB(I, 1) Then GoTo suite
        Next J
        OE.Range("A" & Ligne).Value = TBf(I, 3)
        Ligne = Ligne + 1
    End If
suite:
Next I
End Sub

Salut Boby, salut ThauThème,

Je n'ai pas tout à fait compris le problème comme ThauThème et propose une autre solution afin de placé sur la feuille ''Erreurs'' les données non présentes OU avec une autre casse.

Amicalement.

Bonjour et merci à vous deux.

Yvouille, ta solution semble répondre à mon problème.

Merci encore.