Comparer valeur cellule : problème de type

Bonjour,

Je souhaite comparer les lignes d'un tableau avec un string.

Pour cela je parcours mon tableau j'ai suivi un exemple (je ne peux pas donner le lien)

Puis je cherche à comparer ma cellule avec un variable, mais cela ne fonctionne pas. J'ai une erreur de type.

Sub recherche()

Dim num_essai As String
Dim MACRO As Worksheet
Dim Cell As Range
Dim NoCol As Integer 'variable pour parcourir mon tab
Dim NoLig As Long    'variable pour parcourir mon tab
Dim DerLig As Long   'variable déterminer dernière ligne tableau
Dim Var As Variant
Dim Num_lig As Long  'variable pour trouver la ligne de l'essai recherché

Set MACRO = Worksheets("Feuil1") 'définir MACRO comme ma feuil1
DerLig = Split(MACRO.UsedRange.Address, "$")(4) 'détermine la dernière ligne renseignée de la feuil1
NoCol = 6 ' Fixe le n° de la colonne à lire

num_essai = "a2" 'Fixe mon n° d'essai

For NoLig = 1 To DerLig
        Var = MACRO.Cells(NoLig, NoCol)

        If [ MACRO.Cells(NoLig, NoCol).Value == num_essai ] Then

            Num_lig = NoLig
            Cells(6, 1).Value = Num_lign
            Exit For

        End If

        Debug.Print Var
Next

Set MACRO = Nothing

End Sub

Pouvez-vous me dire pourquoi ma condition ne fonctionne pas.

Je vous remercie d'avance.

Amicalement

Bonjour,

Une proposition ?

Cdlt.

Public Sub Recherche()
Dim ws As Worksheet
Dim strNumTest As String
Dim lRow As Long, lastRow As Long
Dim Var As Variant
Const COL = 6

    Set ws = Worksheets("Feuil1")

    With ws
        lastRow = .Cells(.Rows.Count, COL).End(xlUp).Row
        strNumTest = "a2"
        For lRow = 1 To lastRow
            Var = .Cells(lRow, COL).Value
            If .Cells(lRow, COL).Value = strNumTest Then
                .Cells(6, 1).Value = .Cells(lRow, COL).Value
                Exit For
            End If
        Next
    End With

Debug.Print Var

    Set ws = Nothing

End Sub

Je vous remercie ça fonctionne.