Bonsoir,
Une macro de Dan que j'avais mis de coté,a adapter,test et dis quoi.
Private Sub Workbook_Open()
'Macro par Dan pour Philoflore - XL pratique le 23/04/08
Worksheets(1).ScrollArea = "a1"
On Error Resume Next
With Sheets("feuil1")
.Range("A1").Locked = False
.Protect
End With
End Sub
A +