bonjour,
Une 'tite macro ?
Sub test()
a = Selection.Value
For i = 1 To UBound(a)
Cells(i + 1, 8) = "00:" & Format(Left(a(i, 1), Len(a(i, 1)) - 2), "00") & ":" & Right(a(i, 1), 2)
Next
End Sub
Sélectionnez toutes les données à convertir : Le résultat s'affiche en colonne 8 (H)
A+