Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If InStr(1, .Value, ',') < 1 Then
.Value = Left(.Value, Len(.Value) - 2) & ',' & Right(.Value, 2)
End If
End With
End Sub
p.s. En passant, ce code ne vérifie pas si la virgule déja présente est à la bonne place ou non.