Convertir Heure en centième automatiquement

Bonjour

je possède un script qui me permet à partir d'un tableau de récupérer les ID des salariés ainsi que leurs heures de travail pour chaque services dans une autre feuille. Ce script me récupère mes heures écrit sous la forme 8:30 en 8,30 dans la deuxième ce que je cherche à faire c'est de modifier mon script pour qu'il me convertisse automatiquement mes heures en centième, si cela n'est pas possible alors de créer une macro qui me convertisse à partir de la deuxième feuille mes heures décimal en centième automatiquement suivant la première colonne (exécuté la macro tant que celle-ci est "rempli")

Voici mon script:

ub tableau()
 k = 2
    Sheets("Feuil2").Cells.ClearContents
    With Sheets("Feuil1")
        For i = 5 To .Range("A" & .Rows.Count).End(xlUp).Row - 1
            For j = 3 To .Cells(3, .Columns.Count).End(xlToLeft).Column - 1
                If .Cells(i, j) <> "" Then
                    Sheets("Feuil2").Cells(k, 1) = .Cells(i, 2)
                    Sheets("Feuil2").Cells(k, 2) = CDbl(Split(.Cells(i, j), ":")(0) & "," & Split(.Cells(i, j), ":")(1))
                    Sheets("Feuil2").Cells(k, 3) = .Cells(3, j)
                    k = k + 1
                End If
            Next j
        Next i
    End With

Je vous joint un fichier excel pour plus de compréhension

271projet-salarie.xlsm (25.29 Ko)

Merci d'avance pour votre aide

Sheets("Feuil2").Cells(k, 2) = Split(.Cells(i, j), ":")(0) * 1 + Split(.Cells(i, j), ":")(1) / 60
Rechercher des sujets similaires à "convertir heure centieme automatiquement"