click automatique dans une macro

j 'ai crée un bouton de commande dans lequel j'ai intégré une séparation de données sur la 1ere colonne, (scission entre 2 types de données). J'ai procédé par l'enregitreur de macro en utilisant la fonction "convertir"
du menu "données".Tout ce profile bien mais j'ai quand même l'apparition de la msgbox de confirmation "Voulez vous remplacer le contenu
des cellule de destination"
Comment puis je faire pour intégrer dans ma macro commande un ligne de code qui permette de valider la demande de la msgbox de confirmation directement à la suite de ma macro de séparation sans avoir a cliquer ?
Afin que cela soit relativement propre ( 1 seul click sur le bouton de commande et non 2 (bouton de commande + msgbox)?

voici le code la macro commande
Code:

1 2 3 4 5 6 7 8 9 Worksheets("Feuil1").Activate Columns("A:A").Select 'la décomposition s'opère sur les données de la colonne A Application.CutCopyMode = False Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True 'l'élément de 'distinction de données est le "-"
Merci d'avance !!

Code:

1
2
3
4
5
6
7
8
Application.DisplayAlerts = False
With Sheets("Feuil1")
    .Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
                                  TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                                  Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
                                                                                             :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True    'l'élément de
End With
Application.DisplayAlerts = True

Merci beaucoup pour cette solution Mercatog :ccool: