Merci
Merci Tout est parfait
TextBox2 = ActiveCell.Offset(0, 1)
Avec ton aide et en le modifiant j'arrive à ca.
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
TextBox2 = ActiveCell.Offset(0, 1)
Merci beaucoup Minick
Juste une autre question:
Comment faire si la recherche donne false pour ne pas avoir un bug
If,Than...end if??
Merci