Sub valeurnums()
Range("B:B").Value = Cnum(Range("B:B").Value)
End Sub
Sub valeurnums()
dim derniereligne as long
derniereligne = application.countA(range("b:b"))
for i = 1 to derniereligne
Range("B"&i).Value = Cnum(Range("B"&i).Value)
next i
End Sub