Sub CommandButton1_Click()
Dim nom As String, Maj As String, Reste As Byte, Min As String
Dim mafeuille As String
mafeuille = InputBox('Nom de feuille ?')
nom = Mid(mafeuille, 1, InStr(1, mafeuille, ' ') - 1)
If mafeuille <> '' Then
Worksheets('Exemple').Copy After:=Worksheets('Exemple')
Maj = UCase(Left(nom, 1))
Reste = Len(nom) - 1
Min = LCase(Right(nom, Reste))Range('A1') = Maj & Min
With ActiveSheet
.Name = Maj & Min 'nom
.Range('a1') = mafeuille
End With
End If
End Sub