Private Function Plage(ByVal Cel As Range) As Range
Dim Lg&, Col&, N&
Lg = PremiereLigne(Cel)
Col = PremiereColonne(Cel)
Set Plage = Range(Cells(Lg, Col), Cells(Lg + 17, Col))
For N = 10 To 250 Step 10
Set Plage = Application.Union(Plage, Range(Cells(Lg, Col + N), Cells(Lg + 15, Col + N)))
Next N
End Function