Sub test()
Dim R As Range, Rligne As String, R2 As String, designation As String
Set R = Cells.Find(what:="MON 037", LookAt:=xlPart)
If R Is Nothing Then
MsgBox ("Non Trouvé")
Exit Sub
End If
designation = R.Offset(0, 11 - R.Column).Value
Range("K10").Select
Selection.Value = designation
End Sub