Sélection dans classeur

[JP Montpezat]

Je travaille sur un classeur de 81 pages.
Dans ce classeur je voudrai sélectionner un même cellule sur toutes les feuilles, et ensuite coller la valeur de toutes les cellules, à la suite les unes des autres dans un autre document.
Comment faire
Merci d'avance

 

[michel]

bonjour JP

la macro ci-dessous récupère les données de la cellule A1 dans chaque onglet du classeur contenant la macro , et les insère dans la colonne A d'un nouveau classeur

Sub RecupInfos()
Dim i As Byte
Workbooks.Add 'creation nouveau classeur
For i = 1 To ThisWorkbook.Sheets.Count 'boucle sur les onglets
ActiveWorkbook.Sheets(1).Cells(i, 1) = ThisWorkbook.Sheets(i).Range("A1")
Next i
End Sub


bonne soirée
MichelXld