Copier cellule A1 de plusieurs feuilles coller sur ligne

Bonjour,

J'aimerais créer une boucle qui va chercher la valeur A1 dans un nombre indéterminé de feuilles et qui va coller les valeurs sur une ligne dans une autre feuille.

Merci!!!!

Salut et bienvenue sur le Forum,

Ta demande est assez imprécise. Voici toutefois un exemple.

Option Explicit

Sub yy()
Dim i As Integer, DerLig As Integer

Range("A2:B" & Rows.Count).ClearContents

For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Feuil1" Then
        DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1
        Range("A" & DerLig) = Sheets(i).Range("A1")
        Range("B" & DerLig) = Sheets(i).Name
    End If
Next
End Sub

Cordialement.

Salut,

[EDIT]

Déjà répondu par Yvouille que je salue

Sub boucle()

Dim aa As Integer

Sheets("Index").Select 'sélectione la feuille qui va recevoir les infos _
elle est nommée Index et en première position dans le classeur
Range("A1").Select 'les éléments copiés vont l'être à partir de la cellule A1
aa = Sheets.Count 'compte le nombre total de feuilles dans le classeur

For a = 2 To aa 'entame la boucle; depuis la feuille 2 jusqu'à la dernière
    ActiveCell = Sheets(a).Cells(1, 1)   ' recopie la valeur de la cellule A1 d'une feuille dans la cellule active
    ActiveCell.Offset(, 1).Select 'sélectionne la cellule suivante
Next a

End Sub

++