Bonjour
En utilisant la formule dans le Code
Sub abb()
Application.ScreenUpdating = False
Range("A2", Range("A2").End(xlDown)).Select
Selection.Offset(0, 1).FormulaR1C1 = _
"=SUBSTITUTE(SUBSTITUTE(RC[-1],""m"",""""),""h"","":"")+0"
Selection.Offset(0, 1).Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Application.CutCopyMode = False
End Sub
Cordialement