Option Explicit
Sub CreateWorsheet()
Dim WB As Workbook, WSNew As Worksheet
Set WB = ThisWorkbook
With WB
Set WSNew = .Worksheets.Add
End With
With WSNew
MsgBox "Je Suis La Nouvelle Feuille:" & vbCrLf & _
"My Name = " & .Name & vbCrLf & _
"My CodeName = " & .CodeName & vbCrLf & _
"My Index Number = " & .Index
.Range("A1") = "Hello World!"
End With
End Sub