Excel: Copier cellule sur une meme colonne

Option Explicit
Sub CopierCellulesVersColonne()
Dim wsh As Worksheet      'Feuille explorée
Dim rng As Range          'Cellule de destination
Dim adr As String         'Adresse des cellules à lire

    ' Définir la première cellule de destination
    Set rng = Worksheets(1).Range("C2")
    ' Définir l'adresse des cellules à lire
    adr = "B2"
    ' Explorer le classeur entier ...
    For Each wsh In Worksheets
        ' ... sauf la première feuille
        If wsh.Index <> 1 Then
            ' Copier la valeur
            rng.Value = wsh.Range(adr).Value
            ' Passer à la cellule de destination suivante
            Set rng = rng.Offset(1)
        End If
    Next wsh

End Sub