Pour ce qui est de copier une ligne vers un nouveau fichier, je sais faire, mais ça se complique quand il faut créer une boucle afin d'extraire chaque ligne...
Dim acopier As Range, i as long For i = 1 To UsedRange.Rows.Count Set acopier = Range("A" & i).EntireRow ' et donc là (ce que tu sais faire) tes instructions de copie ' de cette plage vers ce que tu veux Next
Sub CreationOnglet() 'Je commence par supprimer tous les onglets existants On Error Resume Next For Ctr = Sheets.Count To 1 Step -1 If Sheets(Ctr).Name <> ActiveSheet.Name Then SendKeys ("{ENTER}") Sheets(Ctr).Delete End If Next 'Ensuite je détermine le nombre de ligne que j'ai dans ma colonne A Dim dern_fournisseur As String dern_fournisseur = (Range("A65536").End(xlUp).Row) Range("A1").Select 'Je crée un tableau pour enregistrer mes données Dim Tableau() As String ReDim Tableau(1 To dern_fournisseur) ' J'ai mis A1:A99 parce que je ne sais pas faire une selection de la première cellule à la dernière cellule utilisée For Ctr = 1 To dern_fournisseur Tableau(Ctr) = Range("A1:A99")(Ctr) Next 'Je crée les onglets et je les renomme For Ctr = 1 To dern_fournisseur Sheets.Add , Sheets(Sheets.Count) Sheets(Sheets.Count).Name = Tableau(Ctr) Next End Sub
' J'ai mis A1:A99 parce que je ne sais pas faire une selection de la première cellule à la dernière cellule utilisée
dern_fournisseur = (Range("A65536").End(xlUp).Row)