recherche suivant valeur dans tableau et copie cellules sur feuille

Bonjour le forum
j'ai beau chercher mas je comprend pas !!
en fonction d'une valeur dans ma colonne G:G (tool_dossier) je veux copier les valeurs qui se trouvent dans la colonne B,x sur ma feuille Tool-entete dans la colonne B
voici mon code mais impossible de le finaliser

Dim Recherche As Object
Dim i As String
Dim sheet As Worksheet
With Sheets("Tool_Entete")
Application.ScreenUpdating = False

Sheets("Tool_Entete").Range("B14:T1000").ClearContents

.LabelNumeroDeCasier = ""
.LabelIndice = ""


With sheet("Tool-Dossiers")
Recherche = UserForm2.TextBoxCasier.Value
For Each Recherche In Range("G:G")
'If Recherche =

merci a tous