Problème range et vlookup

Bonjour tout le monde, j'ai des problème lors de l'utilisation de range et de vlookup, je pense pourtant que les syntaxes utilisés sont bonne ^^
Pour information j'ai un bon niveau en vba et je sais on peut se dire pourquoi avoir des problèmes avec les bases de bases de la programmation
J'utilise 72 range dans mon fichier seulement il y en a 2 qui bug et je n'ai aucune idée pourquoi.
Mon vlookup lui aussi marche une fois sur 2 ...
Je vous montre mes parties de codes avec la ligne et l'erreur affiché si vous pouvez m'aider sa serait un reve ..

1) For m = cole_commandes To cole_fin Step 1
For h = 1 To nb_val_select
If tableau(h) = Cells(lige_Référence, m).Value Then
v = h
Exit For
End If
Next h
If Cells(lige_quantité, m).Value > stkd(v) Then
Cells(lige_besoin_net, m).Value = Cells(lige_quantité, m).Value - stkd(v)
stkd(v) = 0
Else
Cells(lige_besoin_net, m).Value = 0
stkd(v) = stkd(v) - Cells(lige_quantité, m).Value
End If
Next m
End If

If cole_fin > cole_commandes Then
For h = lige_deb To fintabe
For g = cole_commandes To cole_fin


Worksheets(Onglet_etude).Cells(h, g).Value = Application.VLookup(Worksheets(Onglet_etude).Cells(h, 1).Value, _
Range(Worksheets(Onglet_NOMENCLATURE).Cells(2, coln_nom), _
Worksheets(Onglet_NOMENCLATURE).Cells(fintabn + 1, coln_ratio)), 6, False) * Cells(lige_besoin_net, g)


Bug a su la ligne vlookup erreur 2042 provenant un Vlookup lui même, les cellules sont bien trouvés.




If cole_commandes + 1 < cole_fin Then

Worksheets(Onglet_etude).Range(Cells(1, cole_commandes + 1), Cells(fintabe, cole_fin)).Select

Selection.Sort Key1:=Rows(Lige_date), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End If


erreur sur le range.select, objet ou application non défini

Merci d'avance