Recherche Valeur sur autres feuilles

Bonjour à tous,

J'ai une question.

Je cherche à faire en vba.

J'aimerai qu'il recherche la valeur de la Cellule A2 de la feuille 1 dans l'ensemble d'une plage de données présente sur la feuille 3 (de A2 à A5)

Si cette valeur est là alors on exécute la condition sinon on fait autre chose.

Jje pense que la fonction qu'il faut que j'utilise, c'est Application.match mais je ne suis pas sur (et si c'est ça je n'ai pas compris commment l'utiliser).

Merci d'avance.

Sub Chercher()

' Selectionne la première cellule du tableau
Range("A2").Select

Dim c As Range
Dim TaValeur As String

TaValeur = activecell.Value
Set c = Sheets("Paramètre Liste de Garde").Range("A1:A7").Find(TaValeur, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then

    Set c = Nothing
Else
  Selection.Offset(0, 5).Select
  activecell.Value = " Non concerné" 'ici il me dit qu'il y a un soucis Erreur 1004
  Selection.Offset(0, 1).Select
  activecell.Value = " Non concerné"
  Selection.Offset(1, -6).Select
End If

Selection.Offset(1, 0).Select

End Sub

voilà la base de mon code et je n'arrive pas à avoir un boucle pour dire de recommencer tant que la cellule est rempli.

Bonjour

Bonjour à tous

Un essai à tester.

Bye !

C'est parfait !