Bonsoir
pas sûr d'avoir compris ce que tu cherches à faire, mais voila ce que j'ai compris, sélection des cellules sous "désignation", nombre de cellules déterminé par le nombre de cellules non-vides en colonne 2
Set deb = Sheets("Matrice BL").Cells.Find("Désignation")
lignebl = Application.WorksheetFunction.CountA(Columns(2))
Set Rng = Range(deb.Offset(1, 0), deb.Offset(lignebl, 0))