Valeur cherchée existante mais pas trouvée par la macro

Bonjour à tous,

Alors voila, j'ai un programme qui permet dans la première partie à rechercher toutes les cellules contenant un texte particulier et de copier cette ligne dans une autre feuille du classeur.
Mais, alors que le mote est présent dans la feuille il me renoit le message que je lui demande de renvoyer lorsqu'il n'y a pas le texte demandé.
Voila la macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Sub RECHERCHE_VALEUR() Dim i Dim col As Integer Dim numrow     For i = 2 To 550 Worksheets("Feuil3").Activate 'je demande le texte recherché REP = "TEXT1"   'je cherche Set R = Worksheets("Feuil3").Range("A" & i).EntireRow.Find(REP) 'si VBA n'a pas trouvé If R Is Nothing Then MsgBox "la valeur " & REP & " n'a pas été trouvée" Exit Sub End If 'si la valeur a été trouvée If Not R Is Nothing Then 'j'active la cellule où a été trouvée la valeur Range(R.Address).Activate End If numrow = ActiveCell.Row Range("A" & numrow).EntireRow.Select   Selection.Copy Worksheets("Feuil1").Activate Range("A6").Select Selection.PasteSpecial   Worksheets("Feuil1").Range("B6").Select Selection.EntireRow.Insert   Next Worksheets("Feuil1").Activate Range("A6").EntireRow.Delete   End Sub

---

Alors si quelqu'un a une réponse à cela.
Merci d'avance

Salut à toi,
Personnellement la fonction Find ne m'a jamais inspiré... J'avais refait un truc à ma sauce qui me renvoyait les index des lignes et des colonnes que je voulais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'Renvoie l'index de la colonne correspondant au nom donné, dans la feuille donnée, à la ligne donnée Public Function IndexColonne(Nom As String, ByRef Feuille As Worksheet, Ligne As Integer) As Integer IndexColonne = -1 For Each Cell In Intersect(Feuille.UsedRange, Feuille.Rows(Ligne)) If Cell.Formula = Nom Then IndexColonne = Cell.Column: Exit Function Next Cell End Function   'Renvoie l'index de la ligne correspondante au nom donné, dans la feuille donnée, à la colonne donnée Public Function IndexLigne(Nom As String, ByRef Feuille As Worksheet, Colonne As Integer) As Integer IndexLigne = -1 For Each Cell In Intersect(Feuille.UsedRange, Feuille.Columns(Colonne)) If Cell.Formula = Nom Then IndexLigne = Cell.Row: Exit Function Next Cell End Function

---

Ceci dit, je viens de découvrir il y a quelques minutes une vieille fonction Excel qui a l'air d'être particulièrement efficace :
WorksheetFunction.Match(ce que tu cherches, où tu le cherches, -1/0/1 je t'invite à lire la doc pour ceux-là...).
http://msdn.microsoft.com/en-us/library/ff835873.aspx
En espérant que ça t'aidera à résoudre ton problème =)

Une méthode directe c'est d'appliquer un filtre automatique et de copier le résultat en un seul bloc.