Percorrendo uma lista e mostrando o valor encontrado na celula -VBA