Bonjour,
à tester,
Sub SelectPlage()
x1 = "C1-1.1"
x2 = "C2-2.4"
With Sheets("Feuil1")
col1 = Application.Match(x1, .Rows(5), 0)
col2 = Application.Match(x2, .Rows(5), 0)
ligne = .Cells(6, col1).SpecialCells(xlCellTypeLastCell).Row
.Range(Cells(6, col1), Cells(ligne, col2)).Select
End With
End Sub