Cells.Find(What:=choix.Range("B2").Value, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Offset(1, 0).Select ' déplacé la sélection
Selection.AutoFilter Field:=Selection.Column, Criteria1:=choix.Range("B1").Value