Comparaison donnée texte par rapport à une cellule en VB

    'traitement de mes données
    Nbl = Sheets("Importation").Range("A65536").End(xlUp).Row 'on remonte de la ligne 65536 et on regarde la première cellule non vide en A
    Nbc = Sheets("Importation").Range("IV1").End(xlToLeft).Column 'on part de la colonne IV et on revient vers la gauche sur la première cellule
    Nséjours = Sheets("Distancier Séjours-Regroupement").Range("A65536").End(xlUp).Row
    NséjoursSC = Sheets("Séjours sans courrier").Range("A65536").End(xlUp).Row
    
    ReDim Données(Nbl, Nbc + 1)
    
    For m = 2 To Nbl
        For n = 1 To Nbc
            Données(m - 1, n) = Sheets("Importation").Cells(m, n)
            'MsgBox Données(m - 1, n) 'pour test quand on valide la ligne, affiche la valeur
        Next n
    Next m
        
    For m = 2 To Nbl
            Ok1 = 0
            For n = 2 To Nséjours
                If Données(m - 1, 2) = Sheets("Distancier Séjours-Regroupement").Cells(n, 2).Value Then 'il est ici mon problème
                    Ok1 = 1
                    Exit For
                End If
            Next n
            For n = 1 To NséjoursSC
                If Données(m, 2) = Sheets("Séjours sans courrier").Cells(n, 2).Value Then
                    Ok1 = 1
                    Données(m, Nbc) = "1"
                    n = NséjoursSC
                End If
            Next n
            If Ok1 = 0 Then
                'Ouverture Userform : Demande d'ajout de séjour ou de séjour sans courrier
            End If
    Next m