Property Let LastCreatedSheet(Sh)
Dim xsh, i&, max&, DerCodeName
'parcours de tous les item "indice" de chaque feuille de calcul
'pour déterminer le max des indices et la feuille associée
'l'item indice est le premier (item numéro 1)
On Error Resume Next
For Each xsh In ThisWorkbook.Worksheets
If LCase(xsh.Name) <> xsh.Name Then
i = 0: i = CLng(xsh.CustomProperties.Item(1))
If i > max Then max = i
End If
Next xsh
On Error GoTo 0
'on ajoute dans CustomProperties de la nouvelle feuille le nouveau max
Sh.CustomProperties.Add "indice", (max + 1)
End Property
Property Get LastCreatedSheet()
Dim xsh, i&, max&, leNom$
'parcours de tous les item "indice" de chaque feuille de calcul
'pour déterminer le max des indices et la feuille associée
'l'item indice est le premier (item numéro 1)
On Error Resume Next
For Each xsh In ThisWorkbook.Worksheets
i = 0: i = CLng(xsh.CustomProperties.Item(1))
If i > max Then
max = i
leNom = xsh.Name
End If
Next xsh
Set LastCreatedSheet = Sheets(leNom)
End Property