Sub copie_lignes()
[COLOR="SeaGreen"]'macro originale: Sub copyData_1()
'auteur: byundt (expert-exchanges)[/COLOR]
Dim donnees As Range, C As Range
Dim wsDest As Worksheet
Dim i As Long
Application.ScreenUpdating = False
'ici adapter le nom de la feuille
Set wsDest = Sheets(2)
i = wsDest.Cells(Rows.Count, 1).End(xlUp).Row
If (i = 1) And (wsDest.Cells(1, 1) = "") Then i = 0
Set donnees = Sheets(1).UsedRange.SpecialCells(12)
For Each C In donnees.Cells
'ici mettre la valeur recherchée
If C.Value Like "[B]motrecherché[/B]" Then
i = i + 1
C.Resize(1, Cells(C.Row, 256).End(xlToLeft)).Copy wsDest.Cells(i, 1)
End If
Next
Application.ScreenUpdating = True
End Sub