Optimisation VBA macro

Bonjour,

je me permet de me tourner vers vous pour optimiser ma macro qui se lance par un USERFORM qui permet de mettre en forme un classeur et le découper en fichiers plus petits ( car notre log qui intègre le résultat n'arrive pas à gerer des fichiers de plus de 250 lignes)

voici comment je procède avec en premier la userform puis les modules

je met en gras ce que j'aimerais modifier mais dont je ne trouve pas la solution

Merci d'avance pour votre aide



User form1

Private Sub CommandButton1_Click()

If CheckBox1.Value = True Then
Call SuprimeLigne
End If

If CheckBox2.Value = True Then
Call RenommeOnglets
End If

If CheckBox3.Value = True Then
Call FormatNombreMillier
End If

If CheckBox4.Value = True Then
Call Separe200
End If

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub


---------------------module-----------------------------------------
Sub SuprimeLigne()

' supprime la première ligne si entête

Rows("1:1").Select
Selection.Delete Shift:=xlUp

End Sub

---------------------module-----------------------------------------
renome les feuilles en feuil1/2...

Sub RenommeOnglets()

Dim i, j

For i = 1 To Worksheets.Count
j = Format(i, "#")

ActiveWorkbook.Sheets(i).Name = "Feuil" & j

Next i

End Sub

---------------------module-----------------------------------------
Sub FormatNombreMillier()

' met en forme la colonne en enlevant les espaces sur les milliers

Set Range1 = Application.InputBox("Select the title of the first variable !", "Sélection de cellules", Type:=8)

Range1.NumberFormat = "General"

End Sub

---------------------module-----------------------------------------
sub Separe200()

Dim Lign As Long, DrLig As Long
Dim Cpt As Integer
Dim Chemin As String, NomFich As String




Application.DisplayAlerts = False
Cpt = 0
Chemin = "C:\Documents and Settings\JSEBBAN\Bureau\2\"
With Workbooks("A.xlsx").Sheets("Feuil1")

'----ici je voudrais dans la mesure du possible qu'il me demande l'emplacement du fichier (en sachantyqu'il sagit toujours de la feuille 1)

DrLig = .Range("A" & Rows.Count).End(xlUp).Row

'----renvoie le numéro de la dernière ligne non vide de la colonne A

DrLig = .Range("B" & Rows.Count).End(xlUp).Row

'----renvoie le numéro de la dernière ligne non vide de la colonne B

For Lign = 1 To DrLig Step 200

NomFich = "OFFRE5402_" & 141 + Cpt & ".csv"

'----enregistre le fichier de +1 à partir du chiffre 141 ici, je voudrais qu'il me demande de rentrer la première partie du nom du fichier ainsi que le numéro ou commencer

Workbooks.Add
.Range("A" & Lign & ":A" & Lign + 199).Copy Range("A1")
.Range("B" & Lign & ":B" & Lign + 199).Copy Range("B1")

ActiveWorkbook.SaveAs Filename:=Chemin & NomFich, FileFormat:=xlCSV, CreateBackup:=False, local:=True
ActiveWindow.Close

'----local:=True permet de mettre le point virgule je voudrais dans la mesure du possible qu'il me demande d'indiquer où enregistrer les fichiers decoupés

Cpt = Cpt + 1

Next

End With
Application.DisplayAlerts = True

End Sub