Option Explicit
Sub es()
Dim Mon_Chiffre As Single
Dim DerniereLigne As Integer, i As Integer
'Cette ligne ci rempli ton besoin.
Columns("A:C").Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
'Si tu souhaites continuer plus loin, ce que j'en comprends c'est que
'tu veux avoir le résultat numérique dans la cellule adjacente.
DerniereLigne = Cells(100, 1).End(xlUp).Row
For i = 9 To DerniereLigne
'Test sur la colonne A
If IsNumeric(Cells(i, 1).Value) Then
'On va s'assurer que c'est bien un nombre décimal
Mon_Chiffre = Cells(i, 1).Value
Cells(i, 2).Value = Round(Mon_Chiffre, 2)
End If
Mon_Chiffre = 0
'Test sur la colonne C
If IsNumeric(Cells(i, 3).Value) Then
'On va s'assurer que c'est bien un nombre décimal
Mon_Chiffre = Cells(i, 3).Value
Cells(i, 4).Value = Round(Mon_Chiffre, 2)
End If
Mon_Chiffre = 0
Next i
End Sub