Sub recherche_mot()
Application.ScreenUpdating = False
objectif = 'download'
derligne = Range('Feuil1!J65000').End(xlUp).Row
compteur = Range('Feuil2!J65000').End(xlUp).Row+1
For Each cell In Range('Feuil1!J1:J' & derligne)
If InStrRev(cell.Value, objectif, , vbTextCompare) > 0 Then
cell.EntireRow.Copy
Set Dest = Sheets('Feuil2').Range('A' & compteur)
Dest.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
compteur = compteur + 1
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub