MACRO / VBA

ChDir "C:\Users\LePivert\Documents\Exporter_CSV\" 'a adapter
strFileToOpen = Application.GetOpenFilename _
(Title:="Sélectionnez le classeur à ouvrir", _
FileFilter:="Excel Files *.xlsx (*.xlsx),")

Dim Fichier As String
 ChDir "C:\Users\LePivert\Documents\Exporter_CSV\" a adapter
   Fichier = Application.GetSaveAsFilename(Fichier, "Fichiers CSV (*.csv), *.csv")
    ActiveWorkbook.SaveAs Fichier

MsgBox Fichier

Option Explicit
 Dim dest As Workbook
 'Dim nom As String
 Dim strFileToOpen As String
 'Dim Chemin As String
 'Dim nomcsv As String
 Dim n As Long
Dim Fichier As String
Private Sub UserForm_Initialize()
  CheckBox1.Enabled = False
   CheckBox2.Enabled = False
   CheckBox1.Caption = "Colonne A,H,J"
   CheckBox2.Caption = "Colonne K,P,U"
End Sub
 Private Sub CheckBox1_Change()
   If CheckBox1.Value = True Then
        CheckBox2.Value = False
        n = Range("J65536").End(xlUp).Row 'dernière ligne
       If n > 1 Then 'colonne remplie
dest.Sheets(1).Range("A1:A" & n & ",H1:H" & n & ",J1:J" & n & "").Select 'plage de cellule
ChDir "C:\Users\LePivert\Documents\Exporter_CSV\" 'a adapter
   Fichier = Application.GetSaveAsFilename(Fichier, "Fichiers CSV (*.csv), *.csv") 'chemin de l'enregistrement
exportCSV 'enregistrement CSV
Else
MsgBox "Il y a une colonne vide!", vbExclamation, "Export CSV"
End If
     End If
End Sub
Private Sub CheckBox2_Change()
   If CheckBox2.Value = True Then
        CheckBox1.Value = False
        n = Range("U65536").End(xlUp).Row 'dernière ligne
         If n > 1 Then 'colonne remplie
dest.Sheets(1).Range("K1:K" & n & ",P1:P" & n & ",U1:U" & n & "").Select 'plage de cellule
ChDir "C:\Users\LePivert\Documents\Exporter_CSV\" 'a adapter
   Fichier = Application.GetSaveAsFilename(Fichier, "Fichiers CSV (*.csv), *.csv") 'chemin de l'enregistrement
exportCSV 'enregistrement CSV
Else
MsgBox "Il y a une colonne vide!", vbExclamation, "Export CSV"
End If
     End If
End Sub
Private Sub CommandButton1_Click()
ChDir "C:\Users\LePivert\Documents\Exporter_CSV\" 'a adapter
strFileToOpen = Application.GetOpenFilename _
(Title:="Sélectionnez le classeur à ouvrir", _
FileFilter:="Excel Files *.xlsx (*.xlsx),")
    Set dest = Workbooks.Open(Filename:=strFileToOpen) 'ouvre le classeur xlsx
  'nom = Dir(strFileToOpen) 'nom classeur xlsx
 ' Chemin = Replace(strFileToOpen, nom, "") 'chemin seul
 ' nomcsv = Replace(nom, "xlsx", "csv") 'nom csv on change l'extension
  CheckBox1.Enabled = True 'check opérationnelle
   CheckBox2.Enabled = True 'check opérationnelle
 End Sub
Sub exportCSV()
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlCSV, CreateBackup:=False 'enregistrement CSV
ActiveWindow.Close
Application.DisplayAlerts = True
MsgBox "Emplacement de votre classeur CSV: " & Fichier, vbInformation, "Export CSV"
dest.Close 'ferme le classeur
Unload Me 'ferme l'UserForm
End Sub

 Private Sub CheckBox2_Change()
 Dim nB As Integer
  Dim nL As Integer
  If CheckBox2.Value = True Then
   nB = Range("B65536").End(xlUp).Row 'dernière ligne B
   nL = Range("L65536").End(xlUp).Row 'dernière ligne L
   If nB = nL Then 'colonne égale
MsgBox "Pret a l'export"
Else
MsgBox "une des 2 colonnes n'est pas égale"
End If
End If
   End Sub

 Dim coldepart As String
  Dim coldest As String
coldepart = InputBox("Entrez la lettre de la colonne à permuter", "Permuter colonne", "A")
Do While Len(coldepart) = 0
Exit Sub
Loop
coldest = InputBox("Entrez la lettre de la colonne  de destination", "Permuter colonne", "E") 'si destination A->Z colonne a gauche de la lettre choisie, si destination A<-Z colonne lettre choisie
Do While Len(coldest) = 0
Exit Sub
Loop
Columns(coldepart & ":" & coldepart).Select
    Selection.Cut
    Columns(coldest & ":" & coldest).Select
    Selection.Insert Shift:=xlToRight

  Dim n As Integer
    n = 2 'nbre lignes à ajouter
ActiveSheet.Rows(1).Resize(n).Insert Shift:=xlDown
Range("A1").Value = "machin"
Range("A2").Value = "truc"

ActiveSheet.Rows(1).Resize(2).Insert Shift:=xlDown '1 première ligne, 2 lignes a ajouter