Option Explicit
Const Ligne1 As Integer = 175
Const Ligne2 As Integer = 386
Const Ligne3 As Integer = 875
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then MsgBox "ligne1 = " & Ligne1
If Target.Address = "$C$3" Then Copier
If Target.Address = "$C$4" Then recuperer
End Sub