Salut Laurent
Voici une petite macro (à adapter) trouvée sur cet admirable site qui devrait t'apporter un début de solution. Au lieu et place de MsgBox tu appelle une macro qui masquera ta feuille.
macro évènementielle dans le Private Module de la Feuille en Question :
Soit la cellule 'A1' est modifiée par Saisie (ou par Macro)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then
If Me.Range('A1') = 100 Then
MsgBox '100 en A1'
Else
MsgBox 'Pas 100 en A1'
End If
End If
End Sub
Soit la cellule 'A1' est modifiée par Formule
Private Sub Worksheet_Calculate()
If Me.Range('A1') = 100 Then
MsgBox '100 en A1'
Else
MsgBox 'Pas 100 en A1'
End If
End Sub
Pensant t'avoir été utile, je te souhaite une bonne soirée
Jean
