Sub Macro()
Dim cel As Range 'décalre la variable cel (CELule)
Dim hs As Integer 'déclare la variable hs (HeureS)
Dim ms As Integer 'déclare la variable ms (MinuteS)
For Each cel In Selection 'boucle sur toutes les cellules de la sélection
hs = cel.Value \ 1 'définit la variable hs
ms = (cel.Value - hs) * 100 'définit la variable ms
cel.Value = hs & ":" & ms 'redéfinit la valeur de la cellule cel
Next cel 'prochaine cellule de la boucle
End Sub