Bonjour la famille

Je suis debutant en VBA et du coup mes questions vous parait peut-etre debiles et faciles à résoudre.
Je vous explique par exemple ce que je souhaiterai faire:
j'ai comme donnée: cockpits control panel
Je cherche cette information dans la colonne 2 du CCL aprés je selectionne JAR 25.777 (la cellule à sa gauche)
Apres je reviens sur la feuille Delivrables et j'introduit JAR25.777 devant cockipts control panel

Voici ce que j'ai programmé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub exemple()
Dim mot_cherche As String
Dim i, j As Integer
i = 2
j = 2
mot_cherche = InputBox("Libellé a verifié ?", "Titre") 'introduire le libellé à chercher
Worksheets("CCL").Activate ' activer la feuille CCL
While i < 1000
If mot_cherche <> Range("B" & i).Value Then ' si le libellé n'est pas trouvé dans la ligne 2 colonne 2 on passe à la ligne 3
i = i + 1
End If
Cells("A" & i).Select ' selectionner la colonne qui précede en restant dans la meme ligne
Wend
Worksheets("delivrables").Activate
While j < 1000
'je veux chercher le mot_cherche dans delivrables et remplacer la partie gauche par la valeur de Range ("A"&i)
A = Range("C" & j).Value
Cells.Find(A, , delivrables) = Range
Cells("C", j) = Replace(Range(A), Left(Ragne(A), 5), Range("A" & i))
j = j + 1
Wend
End Sub
Je compte sur votre gentillesse et votre savoir faire pour me débuguer. Je suis bloqué depuis plusieurs
NAMS_CCL-issue4-thibault.xlsm
Merciiii