Sub test()
Dim NLigneDescription As Long
Cells.Find(What:="description", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
NLigneDescription = ActiveCell.Row
Range("A1").Value = NLigneDescription
End Sub