Microsoft 365 cherche mot colonne et copier coller

[nonobat]

bonjour
je souhaite créer une macro qui recherche le mot(additif) dans la colonne "b"
et copier du mot additif jusqu’à la fin de la colonne
pour la coller dans un autre classeur (dont je ferai appel a une fenêtre pour allez chercher manuellement le classeur)

j 'ai cherché sur le forum il y a des choses qui s'approche mais grrr je ne suis pas assez doué
et donc une fois de plus j 'ai besoin de vos aides

merci

 

[nonobat]

bonjour staple1600
re-moi avec la meme macro
j 'ai un tout petit peu modifier la macro pour mon problème
et ça marche bien
seul petit probleme
ma macro est dans le "classeur 1" se qui permet de dérouler ma macro en allant chercher mon autre "classeur 2 " pour coller mes lignes
mais il faut que je retourne dans mon "classeur 1" en allant dans "l 'onglet2" pour derouler ma macro et encore une fois pour "l 'onglet3" et 4
donc plusieurs allez retour entre mes 2 classeurs
j 'ai essayé quelque combine mais je n'y arrive pas
je sollicite en ton aide qui m'ai totalement inspensable
merci
macro
Dim lDeb&, lFin&, WBK As Workbook, Plg As Range
lDeb = Application.Match("permis additifs", Columns(2), 0) + 1
lFin = Cells(Rows.Count, 2).End(3).Row
Set Plg = Range(Cells(lDeb, 5), Cells(lFin, 2))
'ici j"ouvre une fenetre pour allez chercher mon fichier et coller dans ce fichier
ChDir "I:\NDG\ESCOPAR\SHARED\09 - CR Reunion permis ESCADD\2020 WP4"
Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If Fichier <> False Then
Set WBK = Workbooks.Open(Fichier)
End If
'ici on recopie dans sur la feuille 1 du classeur ouvert GetOpenFilename
Plg.Copy WBK.Sheets(1).[A1]

 

[Staple1600]

Bonsoir le fil

nonobat
A part l'ajout du ChrDir
Je ne vois pas d'autres changements, non ?

 

[nonobat]

bonsoir
c 'est vrai il n 'y a pas grand changement juste des ajustements
mais je ne sais pas comment faire pour basculer d'un classeur à l 'autre
car j 'au certe un classeur qui garde le meme nom mais l 'autre changera tous les jours en prenant comme nom la date du jour
et comme je dois faire ma recherche de mot 3 fois de suite je dois aller d'un classeur a l'autre
comment puis-je faire ça

 

[Staple1600]

Re

Déjà après cette ligne
WBK.Sheets(1).Cells(1).Resize(Plg.Rows.Count) = Plg.Value
ajoute
WBK.Close True

 

[nonobat]

ok merci je test ça