Sub commandbutton2_click()
Dim rep As Integer
Dim nom As String
rep = msgbox('Valider le bordereau ?', vbYesNo)
rep = vbYes
nom = Sheets(2).Range('a1').Value
'Sheets(2).Range('a1').Copy
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
Application.ActiveSheet.Name = nom
'worksheets.Add
'ActiveSheet.Name = nom
'Sheets(nom).Paste
'ActiveSheet.Move After:=worksheets(2)
Feuil1.Select
If rep = vbNo Then Exit Sub
End Sub