طلب شرح مفصل لهذا الكود

[hicham2610]

السلام عليكم

المرجو من ذوي الخبرة تفسير هذا الكود بالتفصيل

Option Explicit

Dim tablo, tabloR()
Dim i&, iR&, j&

Sub SupprimerLesVides()
    
    tablo = Range("X10:AP48")
    ReDim tabloR(1 To UBound(tablo, 1), 1 To UBound(tablo, 2))
    
    For j = 1 To UBound(tablo, 2)
        If j <> 5 And j <> 10 And j <> 15 Then
            iR = 1
            For i = 1 To UBound(tablo, 1)
                If tablo(i, j) <> "" Then
                    tabloR(iR, j) = tablo(i, j)
                    iR = iR + 1
                End If
            Next i
        End If
    Next j
    Range("X10:AP48").ClearContents
    Range("X10").Resize(UBound(tabloR, 1), UBound(tabloR, 2)) = tabloR
    
End Sub

وجزاكم الله خيرا