Range("j16").Value = Sheets("Feuil2").Cells(x, y + 1)
x = Int((25 - 4 + 1) * Rnd + 4)
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
tu avais déjà eus une réponse sur ce sujet, non ???Quelle instrction suppl et où, faut il ajouter pour que soient ignorées les lignes vides des plage B425 et F4:F25 de la feuille 2 ?