Baside,
J'ai encore quelques soucis :
Mes feuilles ont pour nom 1, 2, 3 etc...
donc la variable X me pose problème. Mais je ne sais pas si je dois passer par name, item..
Ensuite la feuille à selectionner est cachée et forcément je souhaite la rendre visible.
Pour être plus explicite voici le code qui, incrémente ma feuille qui la nomme et qui la cache.
Sub commandbutton2_click()
Dim rep As Integer
Dim nom As String
rep = msgbox('Valider ?', vbYesNo)
rep = vbYes
If rep = vbNo Then Exit Sub
nom = sheets(2).Range('a1').Value
Application.sheets.Add After:=sheets.Item(sheets.Count), Type:=xlWorksheet
Application.ActiveSheet.Name = nom
Application.ActiveSheet.Range('a1') = nom
Application.ActiveSheet.Visible = False
Feuil1.Select
End Sub
Merci d'avance.