Re-Bonjour,
Ce serait bien de tout préciser dès le départ . Il faut déprotéger la feuille avant d'appliquer le filtre et la reprotéger ensuite
Sub Nomenclature()
With ActiveSheet
.Unprotect Password:="lemotdepasse" ' ou "" s'il n'y a pas de mot de passe
.Range("$B$20:$C$68").AutoFilter Field:=2, Criteria1:="<>"
.Protect Password:="lemotdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End With
End Sub