Format nombre sur Excel

c.NumberFormat = "mm:ss.00"

Sub convertirTemps()
' traite la plage sélectionnée.
' les temps 'Texte' sont convertis en temps numérique
' 1:02.70 => 1:02.70
' 30.84 => 00:30.84
' les temps numériques affichés avec : sont conservés
'
    Dim c As Range, t As Variant, t2 As Variant
    For Each c In Selection
        If (Not IsNumeric(c) And InStr(c.Text, ":") > 0) Or (IsNumeric(c) And InStr(c.Text, ":") = 0) Then
            t = c.Value
            t = Replace(Replace(t, Chr(160), ""), " ", "")
            Select Case Len(t) - Len(Replace(t, ":", ""))
            Case 0
                t = "0:0:" & t
            Case 1
                t = "0:" & t
            End Select
            c = t
            c.NumberFormat = "mm:ss.00"
        End If
    Next c
End Sub