Const ToLayer01               As String = "Texte"

Sub Layer_main()
    Call Layer01
End Sub

Sub Layer01()

    Dim swApp                   As SldWorks.SldWorks
    Dim swModel                 As SldWorks.ModelDoc2
    Dim swDraw                  As SldWorks.DrawingDoc
    Dim swView                  As SldWorks.View
    Dim swAnn                   As SldWorks.Annotation
    Dim swNote                  As SldWorks.Note
    Dim NumShts                 As Long
    Dim i                       As Long


    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel

    NumShts = swDraw.GetSheetCount
    For i = 1 To NumShts
        swDraw.SheetPrevious
    Next i

    For i = 1 To NumShts
        Set swView = swDraw.GetFirstView
        While Not swView Is Nothing
            Set swNote = swView.GetFirstNote
            While Not swNote Is Nothing
                Set swAnn = swNote.GetAnnotation

                swAnn.Layer = ToLayer01

                Set swNote = swNote.GetNext
            Wend

            Set swView = swView.GetNextView
        Wend

        swDraw.SheetNext
    Next i
 End Sub