Function ChercheAdresse2$(c As Range)
Application.Volatile
If c = "" Then Exit Function
Dim r As Range, nlig&, x$, a$, ac$, coldeb%, j%, i&
Set r = c.Parent.UsedRange
nlig = r.Rows.Count
x = c & "*"
a = c.Address
If Application.Caller.Parent.Name = c.Parent.Name Then ac = Application.Caller.Address
coldeb = 1 'ou 2 ou 3 etc..., à adapter
For j = coldeb To r.Columns.Count Step 3 'une colonne sur 3
For i = 1 To nlig
If r(i, j).Address <> a And r(i, j).Address <> ac Then If r(i, j) Like x Then _
ChercheAdresse2 = r(i, j).Address(0, 0): Exit Function
Next i, j
End Function