Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AE15:AE1000")) Is Nothing Then
If Not Target.Value = "" Then
With Sheets("master_list")
Set c = .Range("B2:B" & .Range("B65000").End(xlUp).Row).Find(what:=Target.Offset(0, -27).Value, _
LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(0, 10) = Target.Value
Else
MsgBox "Pas trouvé de " & Target.Offset(0, -27).Value
End If
End With
End If
End If
End Sub