Bonsoir à tous___________________________EDITION: Bonsoir JCGL, effectivement
A mettre dans ThisWorkBook (pas dans un module)
Code:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name Like "Feuil3" Then
With Sh.Range("A1:Z6500")
.ClearContents
.FormatConditions.Delete
End With
End If
End Sub