Erreur de compilation : .SelectedSheets

Bonjour CCM

Dans ce code, la propriété .SelectedSheets se transforme en .selectedSheets automatiquement, ce qui provoque un message d'erreur.

Comment forcer la majuscule S pour éviter le message d'erreur de compilation ?

Merci de votre aide habituelle.

CRDLMNT

Sub ConsolidateData()
    
    'Définir les variables
    Dim rangeToConsolidate As Range
    Dim consolidateSheet As Worksheet
    Dim selected_sheets As Variant, sheet As Variant
    

    'Définir les feuilles de calcul sélectionnées
    selected_sheets = Application.ActiveWindow.selectedSheets
        
    
    'Créer une nouvelle feuille de calcul pour la consolidation
    Set consolidateSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    consolidateSheet.Name = "Consolidated Data"
    
    'Définir la plage à consolider
    Set rangeToConsolidate = Range("O15:Y47")
    
    'Boucle sur les feuilles de calcul sélectionnées
    For Each sheet In selected_sheets
    
        'Consolider les données dans la feuille de consolidation
        rangeToConsolidate.Consolidate Sources:=Array("'" & sheet.Name & "'!" & rangeToConsolidate.Address), Function:=xlSum, LeftColumn:=True, TopRow:=True
        
    Next sheet
    
End Sub