Erreur objet requis

Bonjour,

J'aimerais pouvoir nommer la feuille ajoutée dans ce code. Ma tentative renvoie une erreur objet requis sur la ligne entre crochet . Avez-vous une idée ?

Dim sht As Worksheet, newsht As Worksheet
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command
Dim sSQL As String
Dim qt As QueryTable
Set conn = New ADODB.Connection
Dim diametre  As Integer

Set rs = New ADODB.Recordset
conn.CommandTimeout = 0
Set rs.ActiveConnection = conn
Call rs.Open(sSQL, conn, adOpenForwardOnly, adLockReadOnly)
[Set newsht = ActiveWorkbook.Sheets.Add.Name = "myNewSHeet"]
Set qt = newsht.QueryTables.Add(Connection:=rs, Destination:=Range("A1"))
qt.Refresh

Merci d'avance

Bonjour, pourquoi : "Set" ... ?

Juste çà, celà suffit :

ActiveWorkbook.Sheets.Add.Name = "myNewSHeet"