Faire une selection de lignes avec trois conditions

Sub selection1()
Sheets("feuil1").Select
Dim cel1 As Range
Dim cel2 As Range
Set cel1 = Cells.Find(What:="ted", LookIn:=xlFormulas, LookAt:=xlWhole)
If cel1 Is Nothing Then Set cel1 = Cells.Find(What:="bob", LookIn:=xlFormulas, LookAt:=xlWhole)
Set cel2 = Cells.Find(What:="sam", LookIn:=xlFormulas, LookAt:=xlWhole)
Range(cel1, cel2).Select
End Sub

Sub selection2()
  Range(Cells(IIf(IsError(Application.Match("ted", Range("A:A"), 0)), Application.Match("bob", Range("A:A"), 0), Application.Match("ted", Range("A:A"), 0)), 1), Cells(Application.Match("sam", Range("A:A"), 0), 1)).Select
End Sub