Bonjour,
Merci pour votre aide. Je vous avouerai que je ne suis pas arrivé à faire fonctionner cette ligne sur mon fichier. Du coup je suis passé par quelque chose de moins propre mais qui fonctionne :
Range("M65000").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
nom = ActiveCell.Value
D'autre part, dans le cadre de mon cadre, j'utilise ce bout de code pour copier les données de plusieurs cellules filtrées, mais j'ai l'impression que celui-ci n'est pas optimisé :
Windows("Mon_Fichier").Activate
Sheets("Feuil1").Range("M16:m65000").SpecialCells(xlCellTypeVisible).Copy
Windows(nom).Activate
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Windows("Mon_Fichier").Activate
Sheets("Feuil1").Range("a16:a65000").SpecialCells(xlCellTypeVisible).Copy
Windows(nom).Activate
Sheets("Feuil1").Select
Range("B1").Select
ActiveSheet.Paste