Sub Si_x()
Dim p, Li&, cl&, c&, col&, n&, L&, s$
Set p = [tableau1]
Li = p(0, 1).Row: col = p(0, 1).Column: n = p.Rows.Count: cl = p.Columns.Count
For c = 1 To cl
For L = n To 1 Step -1
If p(L, c) <> "" Then Exit For
Next
s = s & Cells(Li, c + col - 1) & " " & L + Li & vbLf
Next
MsgBox s
End Sub