Macro Excel pour la création de nouvelles feuilles de calcul

Je suis en train de faire une boucle par certaines colonnes d'une ligne et de créer de nouvelles feuilles de calcul avec le nom de la valeur de la colonne/ligne que je suis.

Sub test()
    Range("R5").Select
    Do Until IsEmpty(ActiveCell)
        Sheets.Add.Name = ActiveCell.Value
        ActiveCell.Offset(0, 1).Select
    Loop
End Sub

Ce code crée le premier correctement au départ de R5 mais il semble que la macro commutateurs à cette feuille de calcul et ne pas terminer la tâche.

InformationsquelleAutor Matthew | 2012-08-22