Bonjour à tous
Je suis un peu ennuyé car j'essaye de faire une macro pour copier coller une sélection données par colonnes pour trier des tableaux qui ont des grands nombres de colonnes lors de téléchargement de data sur eikon reuters. Je souhaite en rentrant un mot clé pouvoir garder les infos dont j'ai besoin.
Sub suppr()
Dim cellRecherche As Range, Mot As String
Mot = InputBox("Mot à rechercher", "Coller colonnes")
Set cellRecherche = ThisWorkbook.Worksheets("wsdata").Cells.Find(Mot, , , xlPart)
Set cellColler = ThisWorkbook.Worksheets("wspaste")
While Not cellRecherche Is Nothing
cellRecherche.EntireColumn.Copy
cellColler.EntireColumn.Paste
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
Wend
End Sub
Merci d'avance