Bonjour,
Crée un nouveau classeur, mets une valeur bidon dans la cellule A1 de Feuil1, et copie ce code dans le module ThisWorkbook du classeur :
Private Sub Workbook_Open()
Feuil1.[A1].TextToColumns Feuil1.[A1], xlDelimited, _
Tab:=False, SemiColon:=True
End Sub
Enregistre...