Bonsoir le forum,

je me suis récupérer un code qui me servait pour un autre fichier, je l'ai adapter à une feuille de mon Fichier, mais j'aurais voulu l'adapter pour qu'il fonctionne pour toutes les feuilles de mon fichier sans avoir à le recopier autant de fois qu'il y a de feuilles.En faite, je voudrais qu'il fonctionne pour la feuille active.
voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub yaMasque()
  Dim yaC As Range
  For Each yaC In ThisWorkbook.Sheets("1103").Range("A1:A104")
  ThisWorkbook.Sheets("1103").Unprotect "SERGE"
     If IsEmpty(yaC) Then yaC.EntireRow.Hidden = True
     ThisWorkbook.Sheets("1103").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="SERGE"
  Next
End Sub
merci
jacky