macro avec elseIf ?

=SI($B2>0;$B2/86400;$A2)

Sub RemplissageColonneTrios()
Dim DernièreLigne As Long
' La variable DernièreLigne est de type Long
DernièreLigne = [A65536].End(xlUp).Row
' Se placer sur la cellule A65536 et remonter vers le haut, jusqu'à la première cellule pleine
' Puis placer le numéro de cette ligne dans la variable DernièreLigne
' Cela permet de connaître jusqu'où descend ton tableau. En partant du principe que la
' colonne A est toujours renseigné!

For i = 2 To DernièreLigne
' Mettre 2 dans la variable i lorsque la boucle est effectué pour la première fois
' puis 3, puis 4, ... jusqu'à atteindre le numéro contenu dans la variable DernièreLigne
    If Cells(i, 2) = "" Then
    'Si la cellule colonne 2, ligne i est vide alors
         Cells(i, 3) = Cells(i, 1)
         'écrire dans la cellule colonne 3, ligne i la valeur contenu dans la cellule colonne 1, ligne i
    Else
    'sinon
         Cells(i, 3) = Cells(i, 2)
         'écrire dans la cellule colonne 3, ligne i la valeur contenu dans la cellule colonne 2, ligne i
    End If
    'fin de la condition "SI"
Next i
'Tant que la valeur contenu dans i est inférieur à la valeur contenu dans la variable "DernièreLigne"
'Effectuer une nouvelle fois le code VBA inclus dans la boucle

End Sub

Sub Macro1()
With Feuil9.Range("C2:C" & Feuil9.[A65536].End(xlUp).Row)
   .FormulaR1C1 = "=IF(RC2>0,RC2/86400,RC1)"
   .Value = .Value ' Facultatif
   .NumberFormat = "[h]:mm:ss;@"
   End With
End Sub