Transfert données avec condition jour

Hello à tous!

J'ai un soucis. J'ai un fichier excel avec les cotations du dow jones du 01/01/2017 à aujourd'hui (dernière cotation connue) pour l'indice et ses composante.

Chaque composante a son onglet et j'aimerai réunir tout ça dans une seule feuille avec une colonne date, une colonne pour l'indice et une colonne pour chaque action.

J'aimerai balayer l'ensemble des onglets pour savoir lequel à le plus grand nombre de dates pour le copier (le marché américain mais je reprendrais ce code pour le marché européen aussi donc avec des jours ouvrés différents, non gérables sous excel).

De plus, je souhaite copier la colonne adj close de chaque onglet mais en ajoutant une condition qui vérifie que la cotation est copiée dans la bonne ligne (je ne veux pas que la cotation du 04/05/2015 passe dans la ligne du 06 du tableau final pour une action).

C'est surtout au niveau de la deuxième condition que je bloque.

Merci d'avance!!

J'ai codé cette base pour le moment (juste pour les cotations) mais il manque la condition.

Sub traitement()

Dim ticker As String
Dim sh As Worksheet     
Dim Feuille As Worksheet 
Dim Rng As Range         
Dim a As Long

    Set a = 2
    Set sh = Worksheets("Input")

    For Each Worksheet In Workbook
        If Worksheet.Name = "DJI recap" Or Worksheet.Name = sh Then
        Else
            Sheets(ticker).Select
            Column("G:G").Copy
            Sheets("DJI recap").Select
            Column(a).Paste
            cells(1,a)=ticker

        a = a + 1
    Next

End Sub