Option Explicit
Sub Macro1()
Dim Recherche, Valeur
Recherche = Sheets("saisie").Range("A2").Value
Valeur = Sheets("saisie").Range("B2").Value
Sheets("tablo").Activate
Range("A1:I1").Select
Selection.Find(What:=Recherche, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Value = Valeur
End Sub