En tout cas, tu connais toujours plus que moi ....
Grand merci, je vais pouvoir continuer cette :gun: de macro
Fredaxe
Essaye:
Sheets(NewSheet.Name).Select
Mais bon je ne connais pas trop VBA... ;)
Averell_qui_bosse
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"
