Function ChercheL(Valeur, Plage)
ChercheL = "": T = Plage
For C = 1 To UBound(T, 2)
For L = 1 To UBound(T)
If T(L, C) = Valeur Then ChercheL = L - 1
Next L
Next C
End Function
Function ChercheC(Valeur, Plage)
ChercheC = "": T = Plage
For C = 1 To UBound(T, 2)
For L = 1 To UBound(T)
If T(L, C) = Valeur Then ChercheC = C
Next L
Next C
End Function