Bonsoir Benoist,
Essayes avec ceci ça à l'air de fonctionner
Private Sub Workbook_Open()
Dim Wbk As Workbook
Dim sPath As String, sFic As String
Application.ScreenUpdating = False
sPath = "C:\Users\33674\desktop\"
sFic = "telechargement.csv"
Workbooks.OpenText Filename:=sPath & sFic, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True
Set Wbk = ActiveWorkbook
Wbk.Sheets(1).Range("A6:a26").Copy Destination:=ThisWorkbook.Sheets("maison").Range("e2")
Wbk.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub
Ceci dit, c'est étrange car un fichier ".csv" avec séparateur point-virgule s'ouvre simplement avec Excel
A+