Re,
Dans le fichier, place ce petit code dans un module en VBE puis exécute le
Sub formatnombre()
' Macro Dan
Dim lg As Integer
With ActiveSheet
lg = .Cells.Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each cel In .Range("F2:H" & lg)
cel.Value = Val(cel.Value)
Next
End With
End Sub
Amicalement