ajouter feuille tout à droite des onglets

[news]

Bonjour à tous du forum,

en démarrant la macro, une nouvelle feuille est ajoutée avec le nom repris de Range ("I20") et devrait se postionner tout à droite des onglets(feuilles),
mais la nouvelle feuille n'est pas mis à droite,
le code utilisé:

Sub mettre_feuille_à_la_fin_onglets_de_column_C()
Dim cn As Long
cn = Sheets.Count
Sheets.Add After:=Sheets(cn)
ActiveSheet.Name = Sheets("data").Range("I20").Value
trier_les_données 'va trier alphabétiquement les data
'-------------------------------------------------------------
' erreur n'est pas activé la dernière feuille mise auparavent
' est affichée l'avant dernière feuille
' ---------------------------------------
Sheets(cn).Select
Range("C15").Select
End Sub

Sub trier_les_données()
Sheets("data").Activate
Application.Goto Reference:="triez_data"
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("E5").Select
End Sub

la macro fonctionnait, mais comme j'ai ajouté un tri pour trier les données de C:C, la macro ne fonctionne plus en positionnant la nouvelle feuille tout à droite,
ne sais pas comment résoudre,

'

 

[news]

Re : ajouter feuille tout à droite des onglets

enfin trouvé, bug résolu en déplaçant la macro ' trier les données :

Sub mettre_feuille_à_la_fin_onglets_de_column_C()
Dim cn As Long
trier_les_données 'va trier alphabétiquement les data
cn = Sheets.Count
Sheets.Add After:=Sheets(cn)
ActiveSheet.Name = Sheets("data").Range("I20").Value ' to select Range("I20") to add new WorkSheet
Range("C15").Select
End Sub