Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ' interuption sur saisie de cellule
dim i as long
If Sh.Name = "Classement général" Then Exit Sub ' si c'est la 1ere page, je sors
If Target.Column <> 2 Then Exit Sub ' si ce n'est pas la colonne B je sors
If Target.Row <> Range("B65000").End(xlUp).Row Then Exit Sub ' si ce n'est pas la derniere ligne, je sors
With Sheets("Classement général")
i = .Range("B65000").End(xlUp).Row + 1
.Range("B" & I) = target.value
.range("A" & I).FormulaLocal = "=" & sh.name & "!" & target.offset(0,-1).address
.range("C" & I).FormulaLocal = "=" & sh.name & "!" & target.offset(0,1).address
End With
End Sub