Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [g4]) Is Nothing Or Target.Count > 1 Then Exit Sub
If Not IsNumeric(Target) Or Target > Rows.Count Or Target < 1 Then Exit Sub
Application.Goto Sheets("Base prospects").Cells([g4], 1) ', True
'valider ", True" si la cellule doit monter en première ligne
End Sub