Bonjour je dois réaliser un programme qui recherche dans un tableau une valeure précise (dans une première feuille et qui me l'affiche dans une deuxième feuille)

voilà le programme:

Option Explicit

' Déclaration des variables utilisées
Dim Cellule As Variant
Dim i As String
Dim j As String




' Début du code de travail
Sub Macro1()

'Initialisation des variables de recherche

i = 7
j = 7
Cellule = Sheets("ST").Range("K" & j).Text

'Efface les cellules ou va s'affiche le résultat
Sheets("Recherche").Range("C7:C65536").Select
Selection.ClearContents

'Va faire une recherche dans le tableau d'origine tant que
'la premiére colonne n'est pas nulle (Permet de travailler sur une colonne de longueur variable)
While Cellule <> 0

' Si la valeur recherchée existe dans le tableau d'origine
If Cellule = Sheets("Recherche").Range("C4").Text Then
' On affiche la valeur dans la cellule d'affichage
Sheets("Recherche").Range("C" & i).Value = Sheets("ST").Range("G" & j).Text

' Et on descend d'une ligne
i = i + 1
End If


' On cherche dans la ligne suivante du tableau d'origine

j = j + 1
Cellule = Sheets("ST").Range("K" & j).Text


' Fin de la boucle while

Wend

'Fin de la macro
End Sub


Le problème c'est qu'il bug et me surligne la ligne "Cellule = Sheets("ST").Range("K" & j).Text" juste après j=j+1

Mon deuxième soucis est que je voudrais chercher la valeure dans plusieurs colonnes, pas que la K mais plutot dans la K à Z.

Merci pour toute aide