Application.DisplayAlerts = False
Range("A2").Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
'Ici msgbox qui reste affiché deux secondes
CreateObject("wscript.shell").popup "Remplacement des cellules de destination", 2, "Titre boite" 'Le chiffre 2 correspond à 2 secondes
Application.DisplayAlerts = True