Recherche alors copie

bonjour,

Je voudrais rechercher dans la colone B un nom "toto" par exemple

et quand il trouve toto je voudrais qu'il copie la ligne et la supprime de la feuille 1 et qu'il l'a colle dans la feuille 2

Et tant que l'on y est qu'il fasse ça sur les 14000 lignes de mon document car des toto y en a plein.

SVP merci beaucoup d'avance

J'ai trouvé ça mais ça ne marche pas

Sub Macro1()

'

' Macro1 Macro

Dim Origine, Destination

Set Origine = Sheets("IBTrackExtract")

Set Destination = Sheets("destination")

MotCherche = "un truc"

InL = Origine.ActiveCell.SpecialCells(xlCellTypeLastCell).Row

InC = Destination.ActiveCell.SpecialCells(xlCellTypeLastCell).Column

OutL = Destination.ActiveCell.SpecialCells(xlCellTypeLastCell).Row

For L = 1 To InL

If Origine.Cells(L, 1).Value = MotCherché Then

For C = 1 To InC

Destination.Cells(OutL, C).Value = Origine.Cells(L, C).Value

OutL = OutL + 1

Next

End If

Next

'

End Sub

Bonsoir,

Ci-joint une proposition à tester.

Bonne soirée

Bouben

Yes super merci beaucoup