Excel VBA Activer la mise au point automatique

If Sheets("Sheet1").AutoFilterMode = False Then 
  Sheets("Sheet1").Range("A1").AutoFilter
End if
VasteMonde