Sub Recherche()
Dim c&, i&, j&, k&, l&
Dim Ws1 As Worksheet, Ws2 As Worksheet, Ws3 As Worksheet
Application.ScreenUpdating = 0
Set Ws1 = Sheets("BNP2012 (2)"): Set Ws2 = Sheets("Feuil2"): Set Ws3 = Sheets("Feuil3")
'Supprime les données de la Feuil2
Ws2.Rows("3:65000").Clear
'k sera la ligne de la Feuil3, on commence à 3
k = 3
'Pour toutes les lignes de la Feuil3 de 1 jusqu'à la dernière
For i = 1 To Ws3.Cells(1, 1).End(xlDown).Row
'Pour toutes les lignes de BNP2012 de 2 jusqu'à la dernière
For j = 2 To Ws1.Cells(1, 1).End(xlDown).Row
'Si la cellule BNP2012 colonne C ligne j comporte le texte
'de la cellule de la Feuil3 ligne en cours, alors on continue
If Ws1.Cells(j, 3) Like "*" & Ws3.Cells(i, 1) & "*" Then
'Pour toutes les colonnes c de 1 (A) à 7 (G)
For c = 1 To 7
'On copie la cellule BNP2012 ligne en cours colonne c
'Dans la cellule Feuil2 ligne en cours colonne c
Ws2.Cells(k, c) = Ws1.Cells(j, c)
'Colonne suivante
Next c
'On ajoute 1 à la ligne de Feuil2, pour passer à la suivante
k = k + 1
'Fin de la condition
End If
'Prochaine ligne de BNP2012
Next j
'Prochaine ligne de Feuil3
Next i
Ws2.Columns(2).NumberFormat = "dd/mm/yyyy"
Ws2.Columns(4).NumberFormat = "dd/mm/yyyy"
Application.ScreenUpdating = -1
End Sub