rapport

Private Sub workbook_sheetchange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 2 Or Target = "" Or Sh.Name = "Résultat" Then Exit Sub
    With Sheets("Résultat")
        nbcell = Application.WorksheetFunction.CountIf(.Columns(2), Target.Value)
            If nbcell = 0 Then
                lig = .Cells(65536, 2).End(xlUp).Row + 1
                valmax = Application.WorksheetFunction.Max(.Columns(1)) + 1
                .Cells(lig, 2) = Target.Value
                .Cells(lig, 1) = valmax
                Target.Offset(0, -1) = valmax
            Else: Target.Offset(0, -1) = .Cells(.Columns(2).Find(Target).Row, 1)
            End If
    End With
End Sub