Filtre auto VBA

Bonjour,

J'ai un souci avec le code suivant notamment à la 4 ème ligne, pourriez vous me dire ce qui ne va pas :

(1)Sub Saisie()
(2)Sheets("BD tableur").Select
(3)ActiveSheet.Unprotect ("A")
(4)ActiveSheet.Range("$B$1:$H$300").AutoFilter Field:=7, Criterial:=Range("A1").Value
(5)Range("B2:H300").Select
(6)Selection.Copy
(7)Sheets("saisie").Select
(8)Range("B4").Select
(9) Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
(10) xlNone, SkipBlanks:=False, Transpose:=False
(11)End Sub

Sincères remerciements

Yldie