Sub Traitement()
Dim Plage As Range, Cellule As Range
Dim T As String
Application.ScreenUpdating = False
Set Plage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers + xlTextValues)
For Each Cellule In Plage
If Mid(Cellule.Value, 9) Like '00#.#*' Then
T = Left(Cellule.Value, 8)
Cellule.Value = T & Replace(T & Replace(Cellule.Value, '00', '', 9), '.', '_', 9)
End If
Next Cellule
Application.ScreenUpdating = True
End Sub
Sub Reconstitution()
Dim Plage As Range, Cellule As Range
Dim T As String
Application.ScreenUpdating = False
Set Plage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers + xlTextValues)
For Each Cellule In Plage
If Mid(Cellule.Value, 9) Like '#_#*' Then
T = Left(Cellule.Value, 8)
Cellule.Value = T & '00' & Replace(Cellule.Value, '_', '.', 9)
End If
Next Cellule
Application.ScreenUpdating = True
End Sub