Rechercher une ligne grace à 2 données

Sub rechercheavec2criteres()

Dim i, ligne as variant

i= 1

ligne = 0

do while cells(i,1) <> ""  'tant que la cellule de la ligne i et de la colonne 1 est non vide

  if cells(i, 1) = "01/01/2014" and cells(i, 2) = "Tartempion" then  
    'si la cellule de la ligne i colonne 1 = 01/01/2014
    'et si la cellule de la ligne i colonne  2 = Tartempion alors
    ligne = i
  end if

  i=i+1 'on passe à la ligne suivante
loop

If ligne > 0 ' si une ligne contenant 01/01/2014 et tartempion a été trouvée alors
  Rows(ligne).select 'sélection de la ligne
end if

end sub