VBA alocar os recursos materiais