Salut à tous,

Une petite question toute bête :
j'enregistre une macro faisant du copier coller ça marche.
je modifie cette macro pour avant de copier faire une recherche de valeur et là j'ai le message "La methode paste de la classe worksheet a échoué"

Je vois pas ou ça coince....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
   Range("b1:b5000").Select
    Dim vCellule As Object
    For Each vCellule In Selection
        If vCellule.Value = Range("b2") Then       
            vCellule.EntireRow.Copy
            Application.CutCopyMode = False
            Range("a3").Select
            ActiveSheet.Paste
        End If
    Next  
End Sub