Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) With Sh If .Name = "feuil1" Then If .ProtectContents = False Then titi else toto End If End If End With End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question