Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Left(Sh.Name, 2) = "BP" Then 'ici on teste si le nom de la feuille commence par BP
If Not Application.Intersect(Target, Range("F13")) Is Nothing Then ' Si ce n'est pas la Cellule F13 alors rien ne se passe, Sinon...
masquerlignes
End If
End If
End Sub