Salut Tibo
No Problemo voilà ma macro :
Sub Virgule()
Range('A27:I65536').Select
Selection.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range('F20').Select
Columns('A:I').Select
Range('A3').Activate
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ReadingOrder = xlContext
End With
Range('G22').Select
End Sub
Merci de ton aide