Sub choisir_fichier()
Dim WBK As Workbook, FichierChoisi ' déclaratons
Set WBK = ThisWorkbook
FichierChoisi = Application.GetOpenFilename("Fichiers Txt,*.txt")
Application.ScreenUpdating = False
If Not FichierChoisi = False Then
Workbooks.OpenText Filename:=FichierChoisi, DataType:=xlDelimited, Tab:=True
ActiveWorkbook.Sheets(1).Copy WBK.Sheets(1) ' on copie tout dans le classeur stockant la macro
End If
With WBK.Sheets(1)
'--- 1ere ligne en gras
.Range("A1", [A1].End(xlToRight)).Font.Bold = True
'--- cadre
.[A1].CurrentRegion.BorderAround Weight:=xlThin
End With
End Sub