With Sheets("Trame")
.Visible = True
.Copy Before:=Sheets(1)
.Visible = False
End With
While Len(b) < 1
b = InputBox("Nom du salarié (EN MAJUSCULE) ?", "Question ?")
If Len(b) < 1 Then
Exit Sub
MsgBox ("Vous devez obligatoirement entrer un nom de salarié")
End If
If FeuilleExiste(ThisWorkbook, b) Then
MsgBox "La feuille " & b & " existe déjà. Changez de nom."
b = ""
End If
Wend
c = InputBox("Matricule du salarié ?", "Question ?")
Range("c2") = c