Macro

Option Explicit

Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Column < 3 Then  'seules les colonnes A et B sont cocernées
Dim cel As Object
    For Each cel In sel ' boucle pour chaque cellule mise à jour
        Select Case cel.Column
            Case 1      ' colonne A
                Call trt_elm(cel.Value, cel.Offset(0, 1).Value)
            Case 2      ' colonne B
                Call trt_elm(cel.Offset(0, -1).Value, cel.Value)
        End Select
    Next cel
End If
End Sub

Public Sub trt_elm(num, tar)   'analyse Feuil1
Dim lig As Long, lyg As Long
With Sheets("Feuil1")
    For lig = 1 To .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row
        If .Cells(lig, 1).Value = num Then  'n° trouvé
            If .Cells(lig, 3).Value = tar Then Exit Sub 'tarif égal => rien
            For lyg = lig To .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row
                If .Cells(lyg, 3).Value = tar Then Exit Sub 'tarif égal => rien
            Next lyg    'pas de n° et tarif égaux =>on ajoute
            .Cells(lyg, 1).Value = num
            .Cells(lyg, 3).Value = tar
            Exit Sub
        End If
    Next lig
    If lig > .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row Then
        .Cells(lig, 1).Value = num
        .Cells(lig, 3).Value = tar
    End If
End With
End Sub

tarif 1 :  89
tarif 2: 120
tarif 3: 125
etc...

Dans ce cas, on a déjà 3 fois la même ligne ...