Valeur numerique refusée

Bonjour le forum,

je n'arrive pas a comprendre pourquoi ce morceau de code refuse les valeurs numériques, si ce sont des valeurs en texte ca fonctionne, mais pas avec des chiffres.

For w = 2 To Rows.Count
  ReDim Preserve tablo(1, w)
    tablo(0, w) = ExecuteExcel4Macro(s & w & "C14") 'colonne N
    tablo(1, w) = ExecuteExcel4Macro(s & w & "C15") 'colonne O
  If tablo(0, w) = 0 Then Exit For
Next w
'------------------------- mise à jour des cellules -----------------
    For Each cel4 In Range("S2", [S65536].End(xlUp))
        v = Application.HLookup(cel4.Text, tablo, 2, 0)
            If Not IsError(v) Then cel4 = v
            If IsError(v) Then cel4 = ""
        Next
    For Each nul In Range("S2", [S65536].End(xlUp))
    If nul = 0 Then nul.ClearContents
Next nul

merci pour votre aide

Trouvé,

il suffisait de remplacer 'Text' par 'Value'

merci au forum