Sub Macro1()
Dim Plage, Plage2 As Range
Dim result As Boolean
Application.ScreenUpdating = False
ActiveSheet.Range("A2:A" & [A65536].End(3).Row).AutoFilter Field:=1, Criteria1:=Array("=*1-*.254"), Operator:=xlFilterValues
Set Plage = Range("A2:A" & [A65536].End(3).Row).SpecialCells(xlCellTypeVisible)
For Each Cell In Plage
Cell.Copy
Cell.Offset(0, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cell.Offset(0, 3).Value = Replace(Cell.Offset(0, 3).Value, ".1-", ".0/24-")
Cell.Offset(0, 3).Value = Left(Cell.Offset(0, 3).Value, InStrRev(Cell.Offset(0, 3).Value, "-") - 1)
Next Cell
End Sub