bonsoir Schumi
cette macro ajoute une feuille dans le classeur , la renomme et la positionne à la fin
Sub ajoutFeuille
Dim oDoc As Object , Sheet As Object
Dim i As Integer
'le classeur
oDoc=ThisComponent
'compte le nombre de feuilles dans le classeur
i=oDoc.Sheets.Count
'Ajouter une feuille , la nommer et la placer à la fin
oDoc.GetSheets.insertNewByName('ma nouvelle feuille',i)
End Sub
bonne soiree
MichelXld