Copie de données sous conditions

Bonjour ,

je viens juste de débuter un VBA et je suis actuellement bloquer.

Dans la feuille 1 j'ai 2 colonnes une "numéro" et un autre "heure" et dans une deuxième feuille j'ai 24 colonnes chacune est égal à une une heure

j'aimerai que la VBA me copie de la feuille 1 les heures et le numéro dans la bonne colonne dans la feuille 2 pour vous illustrer mes propos voici le fichier Excel et un screen du résultat que j'aimerai avoir .

Merci d'avance

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Option Explicit

Dim f1 As Worksheet, tablo, tabloR()
Dim i&

Private Sub Worksheet_Activate()

    Set f1 = Sheets("Feuil1")
    tablo = f1.Range("A1").CurrentRegion
    ReDim tabloR(1 To UBound(tablo, 1) - 1, 1 To Cells(1, Columns.Count).End(xlToLeft).Column)
    For i = 2 To UBound(tablo, 1)
        tabloR(i - 1, Hour(tablo(i, 2)) + 1) = tablo(i, 1) & "--" & Format(tablo(i, 2), "hh:mm")
    Next i
    Range("A2").Resize(UBound(tabloR, 1), UBound(tabloR, 2)) = tabloR
End Sub

Bye !

Merci beaucoup ! Es que tu pense qu'il y a une solution pour tous mettre sur la ligne 1 et ainsi de suite à la place que sa prenne la ligne respective ?

Nouvelle version

Bye :

merci c'est parfait

bonjour , je relance le sujet car j'ai voulu l'améliorer en ajouter une deuxième page avec le même tableau mais pour les départs et du coup le planning ce trouve en page 3 celui ci s'alimente bien mais lorsque je veux incrémenter des départs celui ci supprime des cases .

ps: c'est deux macro différentes car je dois faire ceci en deux temps

voici le fichier

Merci d'avance