Bonsoir,
avec une Function
Function CountColumnA(RNG As Range, X As Range) As Integer
Dim CL As Range
For Each CL In RNG
If InStr(CL, X) > 0 Then
CountColumnA = CountColumnA + 1
End If
Next
End Function
En F7 à tirer vers le bas:
=CountColumnA(Tableau1[Nom];D7)