ajoutter et renommer une feuille en passant par une inputbox

Bonjour à Toutes & tous

BBmarcus voici ton code
A chaque passage le prog te demanderas quel nom tu veux donner à la feuille.

Dim NBPaticipant As Integer
Dim Qui As String
NBPaticipant = InputBox("Nombre de participants ???")

For i = 1 To NBPaticipant
Qui = InputBox("Nom du particiapant N°" & i & " ??")
ActiveWorkbook.Sheets("lenomdetafeuille").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Qui
Next i
End Sub

Ps : Je ne gère pas les erreurs comme par exemple deux feuilles avec un nom identique.

++

Creepy

Merci pour m'avoir accordé du temps Creepy, c'est exactement ca que je cherchais....

Grace à tout vos bons conseils, je me perfectionne progressivement
@+ sur le forum !

BBmarcus