Récupérer la valeur d'une texteBox pour renommer une feuille

Oui exactement, je l'ai mis à la fin de ma fonction "Validate"

ok pour le code mais pourquoi voulez-vous avoir cette option dans l'instruction Protect

Si vous voulez supprimer sur une feuille protégée, il faut que la ligne contenant les cellules à supprimer ne soit pas verrouillée

Expliquez moi ce que vous voulez faire

Sinon votre code pourrait déjà être comme ceci

Set Source = ThisWorkbook.Worksheets("Part") 'Définir la feuille à copier
With Application
    .ScreenUpdating = False 'Annulation du rafraichissement de l'écran
    .DisplayAlerts = False
End With
With Source
    .Visible = xlSheetVisible 'Rendre visible la feuille à copier
    .Copy After:=Worksheets("Project") 'Copier la feuille en dernière position
    .Visible = xlSheetHidden 'Remise à l'état cachée de la feuille source
End With
With ThisWorkbook.ActiveSheet
    .Name = "Part Status " & Me.TextBox1 'Renommer la feuille par la saisie du textbox
    .Protect
End With
Application.ScreenUpdating = True 'Réactivation du rafraichissement de l'écran
....

Merci pour la mise en forme du code qui est plus propre !

J'aimerai donner la permission à l'utilisateur de pouvoir supprimer des lignes dans le cas ou il en crée trop par exemple, comment faire ?

Le plus simple, l'utilisateur sélectionne une cellule de la ligne à supprimer puis il clique sur un bouton "Supprimer"

A voir si cela convient