Dim cel As Range
For Each cel In Range([A3], [A65536].End(xlUp)) [COLOR="Red"][COLOR="Blue"]'peut-être, mais pas bien compris :[/COLOR] For Each cel In TATA[/COLOR]
If Application.CountIf([COLOR="Red"]TOTO[/COLOR], cel) Then
Programme A [COLOR="Blue"]'exécute cette macro[/COLOR]
Exit For
End If
Next