Option Explicit
Public Sub ConversionHeure()
Dim heure As Integer, minute As Integer, temps As Double, i As Integer, DerLig As Long
DerLig = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For i = DerLig To 3 Step -1
temps = Range("C" & i).Value + Range("H" & i).Value
heure = Int(temps)
minute = (temps - Int(temps)) * 60
Range("J" & i).Value = heure & "h" & minute
Next i
End Sub