Function LigneColonne(val, r As Range)
Dim a(1 To 2), t, ncol%, i&, j%
a(1) = "": a(2) = ""
If r(1) = val Then a(1) = 1: a(2) = 1
If r.Count > 1 Then 'au moins 2 éléments nécessaires
t = r 'matrice, plus rapide
ncol = UBound(t, 2)
For i = 1 To UBound(t)
For j = 1 To ncol
If t(i, j) = val Then a(1) = i: a(2) = j: GoTo 1
Next j, i
End If
1 LigneColonne = a 'vecteur ligne
End Function