Function rechercheValeur(valeur As String) As String
'renvoi de la dernière position de la valeur dans le sens : gauche/droit puis haut/bas
Dim nbLignes, nbColonnes, abscisse, ordonnee As Integer
nbLignes = ActiveSheet.Rows.Count
nbColonnes = ActiveSheet.Columns.Count
abscisse = 0
ordonnee = 0
For i = 1 To nbLignes
For j = 1 To nbColonnes
If Cells(i, j) = valeur Then
abscisse = i
ordonnee = j
End If
Next
Next
rechercheValeur = CStr(abscisse) & " " & CStr(ordonnee)
End Function