Bonjour
Voila un bout de code qui sélectionne depuis la cellule A1 jusqu'à la derniére cellule de la colonne contenant une donnée.
Sub Macro2()
'
Dim ligne As Integer, colonne As Integer
Dim toto As String
Dim cellule As Variant
'
Workbooks("classeur1").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
For Each cellule In Selection
ligne = cellule.Row
toto = cellule.Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=toto, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks("classeur1").Activate
Rows(ligne).Copy
Workbooks(toto & ".XLS").Activate
ActiveCell.PasteSpecial
ActiveWorkbook.Save
ActiveWorkbook.Close
Next
End Sub