Transformer un tableau en colonne

Merci beaucoup de votre aide.

Ca fonctionne en effet !

Bon j'ai pas compris grand chose à la formule mais en m'y penchant je vais peut être y arriver ^^

Par contre savez-vous comment je peux étirer les dates correspondantes ?

Exemple ;
Vendredi 01 Janvier 2017 00:00 56 76 78 89 98 76
Vendredi 01 Janvier 2017 01:00 56 76 78 89 98 76
.
.
.
Samedi 02 Janvier 2017 00:00 56 76 78 89 98 76
Samedi 02 Janvier 2017 01:00 56 76 78 89 98 76

Donnerait :
Vendredi 01 Janvier 2017 00:00 56 76 78 89 98 76
Vendredi 01 Janvier 2017 00:10 56 76 78 89 98 76
etc

J'ai étiré les heures en pensant faire un SI(Date=00:00,Date+1;Date) mais je me retrouve des le 2ème jour avec le format suivant :
23:40
23:50
00:00
01/01/1900 00:10:00
01/01/1900 00:20:00

Qui fait buger le SI bien entendu.

J'ai trouvé merci

@Azrogavant d' appliquer la formule, tu crées une colonne date,
en a2 01/01/201/ 00:00
en a3 01/01/201/ 00:10
et tu étires autant tu veux !!
et tu appliques ta formule en B2

PS : il est important de présenter son problème de façon exhaustive, les solutions dépendant aussi du contexte.
Et un fichier test facilite grandement la tache !!

Merci de votre aide. Par contre je suis das une boite qui depuis une attaque informatique n'accepte plus els macros. Du moins faut les faire valider par le service informatique donc c'est tout un bordel...je n'ai donc pas pu tester votre solution malheureusement.

@Azrog 
Bonjour Azrog,

Si tu veux essayer aussi une solution VBA :

Option Explicit

Sub Essai()
  Dim dlig&, lig1&, lig2&, col%, v1 As Date, v2%
  Application.ScreenUpdating = False: Worksheets(1).Select
  With Worksheets(2)
    .Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    dlig = Cells(Rows.Count, 1).End(xlUp).Row: lig2 = 1
    For lig1 = 1 To dlig
      v1 = Cells(lig1, 1): col = 2
      Do
        v2 = Cells(lig1, col): If v2 = 0 Then Exit Do
        .Cells(lig2, 1) = Format(v1, "hh:mm"): .Cells(lig2, 2) = v2
        lig2 = lig2 + 1: col = col + 1: v1 = v1 + 0.00694444
      Loop
    Next lig1
  End With
  Worksheets(2).Select
End Sub

⚠  Une 2ème feuille (vide) doit déjà exister.

Cordialement