:trouve:
Ca y est, j'ai la solution à mon problème.
Il suffisait de faire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$1" Then
    Application.Goto Reference:=ActiveSheet.Range("A5"), Scroll:=True
    Range("B40").End(xlUp).Offset(1, 0).Activate
    End If
End sub
Bonne fin de journée à tous!