Suis pas programmeur, mais je chipotte un peu en VBA
Soit le code suivant pour Excel XP :
Set Dernier = ActiveSheet.Cells.SpecialCells(xlLastCell) 'reprend le nombre de ligne dans la feuille
For i = 1 To Dernier
Set nom = Worksheets("temp" ).Cells(i, 1) ' la variable nom reprend successivement le contenu des cellules de la 1ère colonne
Set NewSheet = Worksheets.Add
NewSheet.Name = nom 'il me crée une feuille reprenant le nom contenu dans la cellule
...
...
Sheets(nom).Select 'le but étant de sélectionner la feuille nouvellement créée ....
Et à cette ligne il me renvoit un vilain : "Run time error 13 : Type mismatch"
Une idée ????
Merci
---------------
La terre est le berceau de l'humanité. L'homme ne peut vivre éternellement dans son berceau.