Salut,
essaie ceci et adapte si tu veux:
Sub Ligne1Figée()
Dim Mpanel As Boolean
Dim Place_actuelle
Dim nb As Integer, I As Integer
nb = Sheets.Count
For I = 1 To nb
Sheets(I).Select
Application.ScreenUpdating = False
Place_actuelle = ActiveCell.Address
Mpanel = IIf(ActiveWindow.FreezePanes, True, False)
If Not Mpanel Then
Application.Goto Range('A1'), Scroll:=True
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
Else
ActiveWindow.SplitRow = False
ActiveWindow.FreezePanes = False
End If
Application.Goto Range(Place_actuelle), Scroll = True
ActiveWindow.SmallScroll Down:=2
Next I
End Sub
Bye