Sub Copier()
Dim h&
With Sheets("base").[I10:BD10].Resize(Rows.Count - 9)
If .Cells(1) = "" Then .Cells(1) = " " 'au moins une valeur
h = .Find("*", , xlValues, , xlByRows, xlPrevious).Row - 9
.Resize(h).Copy Sheets("résultats").[J4]
End With
End Sub