Sub SetAutoFilter(sht As Worksheet, bl As Boolean, rg As Range)
'on ne veut pas d'autofiltre et il est mis => On enlève l'autofiltre de la feuille
If bl = False And sht.AutoFilterMode = True Then
sht.AutoFilterMode = bl
End If
'on veut un autofiltre et il n'est pas mis => On met un autofiltre sur la plage
If bl = True And sht.AutoFilterMode = False Then
rg.AutoFilter
End If
End Sub