Récupérer valeur d'une cellule par son adresse

Bonjour, dans un classeur Excel, j'ai 5 feuilles.

Sur une 6ème feuille, j'aimerai pouvoir récupérer, par exemple, toutes les valeurs des cellules B5 de chacune des 5 feuilles.

Donc, sur ma feuille 6, je veux qqch du genre:

A1 = B5 de la feuille 1

B1 = B5 de la feuille 2

C1 = B5 de la feuille 3

D1 = B5 de la feuille 4

E1 = B5 de la feuille 5

Comment faire s'il vous plait ?

A terme, le choix de la selection se fera par un userform.

(variable a = B, varible b = 5)

Merci?

Bonjour

Formule en A1 de Feuil6, à incrémenter vers la droite.

=INDIRECT("Feuil"&COLONNE()&"!B5")

Cordialement

Bonsoir et bienvenue,

Vois si çà te va

Sub Recup()
Dim A, B, i As Byte
''Macros par Claude Dubois pour "apnw7931" E-P le 20/02/10
    A = 2 'col
    B = 5 'ligne
        For i = 2 To Worksheets.Count
            With Worksheets(i)
                .Cells(B, A).Copy Destination:=Cells(1, i - 1)
            End With
        Next i
End Sub

Amicalement

Claude