une solution sans avoir a demasquer l'onglet
merci
Application.ScreenUpdating = False
Sheets("Feuil1").Visible = xlSheetVisible
'TonCode
Sheets("Feuil1").Visible = xlSheetHidden
Application.ScreenUpdating = True
Sheets("NomFeuille").Range("A1").Value = 123