Sub change()
Dim heur As Variant, min As Variant
Application.Goto Sheets('feuil1').Range('A1')
For i = 1 To Range('a65536').End(xlUp).Row
heur = Left(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '.') - 1)
min = Mid(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '.') + 1)
If Len(min) = '1' Then min = min & '0'
Cells(i, 2).Value = heur & 'h' & min
Next i
End Sub