à l'aide de la macro dispo sur le net "déprotection excel".
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim feuil, plage, pl As Range, i As Long
feuil = Array("Feuil1", "Feuil2")
plage = Array("B1:D5", "B:D,G:L")
For i = 0 To UBound(feuil)
If Sh.Name = feuil(i) Then
Set pl = Sh.Range(plage(i))
If Not Intersect(Target, pl) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 1).Select
Application.EnableEvents = True
End If
End If
Next i
End Sub