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...