Chercher une cellule

tu peut faire ta recherche avec cette macro,tu remplace
feuil1 par la feuille ou tu vas chercher
feuil2 par la feuille ou tu va taper ta recherche
A1 par la cellule ou tu va taper ta recherche
je te conseille de limiter la plage de recherche au lieu de chercher dans toute la feuille sa réduit beaucoup
le temps de recherche


Sub chercher()
'
'
Dim cellule As Object
Sheets("Feuil1").Select
Cells.Select
For Each cellule In Selection
If cellule.Value = Sheets("Feuil2").Range("A1").Value Then
' Si on a trouvé on va à "Trouve"
GoTo trouve
Exit For
End If
' Sinon on passe à la ligne suivante
Next cellule
Exit Sub
trouve: cellule.Select
cancel = True
End Sub

@+