Sub Macro1()
Dim nlm&, col%, dlg&, lig&
nlm = Rows.Count: Application.ScreenUpdating = 0
For col = 9 To 15 'colonnes I à O
dlg = Cells(nlm, col).End(3).Row
For lig = 4 To dlg
With Cells(lig, col)
If Not IsEmpty(.Value) Then
.Value = Replace$(Replace$(.Value, ",", ""), ".", ",") * 1
.NumberFormat = "# ##0.00\ €"
End If
End With
Next lig
Next col
End Sub