Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+q
'
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A4").Select
ActiveSheet.Paste
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
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