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 : Sélectionner tout - Visualiser dans une fenêtre à part
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