Dim swApp           As SldWorks.SldWorks
Dim swModel         As SldWorks.ModelDoc2
Dim swSheet         As SldWorks.Sheet
Dim ConfigName      As String
Dim vSheets         As Variant
Dim swView          As SldWorks.View
Dim swNote          As Note
Dim swAnn           As SldWorks.Annotation
Dim sValue          As String
Dim vSheetName      As Variant
Dim swDraw          As SldWorks.DrawingDoc
Dim bret            As Boolean

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
vSheets = swDraw.GetSheetNames
For Each vSheetName In vSheets
    bret = swDraw.ActivateSheet(vSheetName): Debug.Assert bret
    Set swSheet = swDraw.GetCurrentSheet
    Set swView = swDraw.GetFirstView  'Déclaration pour activer le fond de plan
    Set swNote = swView.GetFirstNote
    swModel.ClearSelection2 (True)
    Do While Not swNote Is Nothing
        Set swAnn = swNote.GetAnnotation
        sValue = "$PRPSHEET:""Num_Gravage""" 'Mettre le nom de la propriété recherchée
        If swNote.PropertyLinkedText = sValue Then
                swSheet.SetName (swNote.GetText)
                swModel.EditRebuild3
                swModel.Save2 False
                Exit Sub
        End If
        swModel.ClearSelection2 (True)
        Set swNote = swNote.GetNext
    Loop
Next
End Sub