Positionner onglet en dernier

Bonjour le Forum

je reviens vers vous pour une petite question

j'ai cette macro qui me copie un un onglet a partir de l'onglet " Planning" et le renomme mais je voudrais que le nouvelle onglet soit en dernier position est-ce possible?.

Je reste a votre disposition pour toute info complémentaire.

Merci de votre aide

Sub créer()
A = InputBox("Veuillez Verifier le nom pour le Nouvel Onglet", "Sauvegarde", Range("H2"))
If A <> "" Then
Sheets("Planning").Copy Before:=Sheets(1)
Sheets(1).Name = A
End If

 :btres: 

End Sub

Bonjour,

Teste comme ceci

Sub créer()
A = InputBox("Veuillez Verifier le nom pour le Nouvel Onglet", "Sauvegarde", Range("H2"))
If A <> "" Then
Sheets("Planning").Copy Before:=Sheets(1)
Sheets(1).Name = A
For i = 1 To Sheets.Count
    Sheets(A).Select
    Sheets(A).Move After:=Sheets(i)
Next i
End If

: btres:

End Sub

Super Merci M12

Bonjour,

Ci-joint une proposition à tester.

Un peu tard ...

Bonne journée

Bouben