Comparaison de deux colonnes (macro)

Sub ManquantTotal()

Dim ean1 As String
Dim Erreur As Boolean 'vrai ou faux
Dim DEJA_PRESENT As Boolean 'vrai ou faux: S'il est deja dans la liste on fait quantité = quantité + 1, sinon on lance Comparaison
Dim Quantité As Byte   'en espérant qu'il n'y ait pas plus de 255 références sur une palette !!!! ;)
Dim Différence As Integer 'Différence entre le nbre de pdt attendu et le nbr de pdt présent
Dim Nombre As Integer  'insertion d'une fonction pour
'éviter l'erreur du fait que les ean sont stockés sous forme de texte et non de nombre
Dim ligne2 As Integer 'Ligne feuille de contrôle
Dim ligne3 As Integer 'ligne pour feuille extraction
Dim ligne_extraction As Long
Dim NombreErreur As Byte 'En espérant qu'il n'y ait pas plus de 255 erreurs ??!!! :OO
Dim Total As Integer 'Colis total
Dim ligne As Byte

        ligne = 2
        
        Total = 0
        ligne2 = 10
        NombreErreur = 0
        ligne_extraction = 2
        
        ean1 = Sheets("Extraction cia flu").Cells(ligne, 1).Value
        'Sheets("Extraction cia flu").Cells(ligne_extraction, 1).Select
        DEJA_PRESENT = False
        
       
            Do While (ligne_extraction < ligne)
                Sheets("Douchette").Cells(ligne_extraction, 1).Select
                If (ActiveCell.Value = ean1) Then
                    DEJA_PRESENT = True
                    ligne_extraction = ligne_extraction + 1
                End If
                
            ligne_extraction = ligne_extraction + 1
            
            Loop
            
            
            
            If (DEJA_PRESENT) Then
          

            Else:

        MsgBox (" Produit Manquant : " & vbCrLf & vbTab & ean1 & vbCrLf & "!!!")

            End If
            
            


End Sub