For i = 2 To L3
tps_indispo = ""
If Cells(i, 12).Value <> "" Then
With ThisWorkbook.Sheets("Rapport Exploitation")
tps_indispo = CDate(.Cells(i, 12)) - CDate(.Cells(i, 11))
End With
MsgBox Format(tps_indispo, jj & " jours " & hh & " hrs " & mm & " min " & ss & " sec. ")
Else
With ThisWorkbook.Sheets("Rapport Exploitation")
tps_indispo = CDate(Now) - CDate(.Cells(i, 11))
End With
MsgBox Format(tps_indispo, jj & " jours " & hh & " hrs " & mm & " min " & ss & " sec. ")
End If
Next i