With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\Mes documents\Mes sources de données\Importer fichier CSV sur Excel\carnet_adresse.CSV" _
, Destination:=Range("$A$1"))
.Name = "carnet_adresse"
.FieldNames = True
etc....