Hé hé Moa !
Trop fort (ou forte !?)
******************
Le fichiers joint de 17h03, avant ton dernier, bug à la ligne ci-dessous marquée d'une fleche :
Sub Incrementer()
Application.ScreenUpdating = False
---> Worksheets("CACHE").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Shapes("CommandButton1").Delete
ActiveSheet.Name = "Feuil" & Worksheets.Count - 1
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets("Feuil" & Worksheets.Count - 1).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
ActiveSheet.Range("G14").Select
ActiveCell = Sheets("Cache").Range("G14").Value
Application.ScreenUpdating = True
End Sub
C'est dommage, car j'aurais pu éventuellement m'en servir pour essayer de le reproduire pour d'autres appli (histoire de m'entrainer...) ....
Par contre, ton tout dernier, avec la barre sur le coté, LA ROLLS ROLLS, rien à redire ! C'est de l'excellent travail !
Par contre, impossible à reproduire à mon avis en ce qui me concerne...
Millessssss merci à tous et longue vie au forum !!!!
Sophie.