Recherchev en VBA

RECHERCHEV en BVA? (Bis)

Fichier joint

Bonjour,

Sub incrementer()
Dim cel As Range
    ref = Sheets("Feuil2").Range("B4")
    With Sheets("Feuil3").ListObjects(1)
        Set cel = .DataBodyRange.Columns(1).Find(ref)
        If Not cel Is Nothing Then
            .DataBodyRange.Cells(cel.Row - .HeaderRowRange.Row, 6) = .DataBodyRange.Cells(cel.Row - .HeaderRowRange.Row, 6) + 1
        Else
            MsgBox "Référence non trouvée !"
        End If
    End With
End Sub

Bonjour et Merci

Vite fait bien fait!

Merci encore

Bonne journée

Nonno