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