Sub Remonte()
Dim P As Range, ncol%, t(), i&, n&, j%
Set P = [A3:K17] 'plage à adapter
ncol = P.Columns.Count
ReDim t(1 To P.Rows.Count, 1 To ncol)
For i = 1 To P.Rows.Count
If P(i, 7) <> "" Then
n = n + 1
For j = 1 To ncol
t(n, j) = P(i, j)
Next
End If
Next
P = t
End Sub