Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Remplace "Classeur3" par le nom de ton fichier csv dans la ligne :
CSV = "Classeur3"
Exécute la macro :
Sub Import()
Dim CSV As String, Wbk As Workbook, Ligne As Long, Plage As Range
CSV = "Classeur3"
With Workbooks("Classeur3").Sheets(1)
Set Plage = .Range("B2", .Cells(.Rows.Count, 2).End(xlUp))
End With
ThisWorkbook.Activate
Ligne = Cells(Rows.Count, 4).End(xlUp).Row + 1
Plage.Copy Cells(Ligne, 5)
Plage.Offset(, 1).Copy Cells(Ligne, 6)
Plage.Offset(, 6).Copy Cells(Ligne, 4)
End Sub
Si tu as des problèmes avec les macros, dis-le.
Daniel