Macro Ecrire dans une cellule.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
'... ton code
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 Then Exit Sub
'... ton code
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column<> 1 Then Exit Sub
'... ton code
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A10:L20")) Is Nothing Then Exit Sub
'... ton code
End Sub

Private test As Boolean


Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A10:L20")) Is Nothing Then Exit Sub
If test = True Then Exit Sub
test = True
'... ton code
test = False
End Sub

Private test As Boolean 'déclare la variable test

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim cs As Workbook 'déclare la variable cs (Classeur Source)
Dim os As Object 'déclare la variable os (Onglet Source)
Dim r As Range 'déclare la variable r (Recherche)

If test = True Then Exit Sub 'si test est vrsie. sort de la procédure
If Target.Column <> 1 Then Exit Sub 'si le changement a lieu ailleurs que dans la colonne A, sort de la procédure
If Target = "" Then Exit Sub 'si la cellule est effacée, sort de la procédure
test = True 'définit la variable test
Set cs = Workbooks("CodeRac.xlsx") 'définit le classeur source
Set os = cs.Sheets("Feuil1") 'définit l'onglet source
'définit la recherche (recherche la valeur de la cellule éditée dans la colonne A de l'onglet source)
Set r = os.Columns(1).Find(Target.Value, , xlValues, xlWhole)
'si il existe au moins une occurrence, remplace la valeur de la cellule par la valeur de la cellule en colonne B de l'occurrence
If Not r Is Nothing Then Target.Value = r.Offset(0, 1).Value
test = False 'réinitialise la variable test
End Sub

Private pl As Range 'déclare la variable pl (PLage)

Private Sub UserForm_Initialize() 'a l'initialisation de l'UserForm
Dim dl As Integer 'définit la variable dl (Dernière Ligne)

With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A)
    Set pl = .Range("A2:A" & dl) 'définit la plage pl
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub
Private Sub TextBox1_Change() 'au changement dans la TextBox1
Dim cel As Range 'déclare la variable cel (CELlule)
ListBox1.Clear 'vide la ListBox1
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    'si les premiers caractères de la TextBox1 correspondent au premier caractères de la cellule cel
    '(majuscule comme minuscule), ajoute la v aleur de la cellule à la ListBox1
    If UCase(Left(cel.Value, Len(Me.TextBox1.Value))) = UCase(Me.TextBox1.Value) Then Me.ListBox1.AddItem cel.Value
Next cel 'prochaine cellule de la boucle
If Me.ListBox1.ListCount = 1 Then 'condition : si la ListBox1 ne contient qu'un seul élément
    'place dans la cellule active le resultat de la recherche dans la plage pl du contenu de la ListBox1 décalé d'une colonne à droite
    ActiveCell.Value = pl.Find(Me.ListBox1.List(0), , xlValues, xlWhole).Offset(0, 1)
    Unload Me 'vide et ferme l'UserForm
End If 'fin de la condition
End Sub