Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche
With Sheets("AVANT") 'prend en compte l'onglet "AVANT" (à adapter à ton cas)
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 2)
For Each cel In .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "BASE")
Set r = Sheets("BASE").Columns(1).Find(cel.Value, , xlValues, xlPart)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 8).Value = r.Offset(0, 3).Value
Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "AVANT"
End Sub