Sélection cellule Non vide puis supprimer

Bjr

1) quel sera le code pour sélectionner les cellules non vide à partir de la cellule A2 puis supprimer cette sélection (données de la ligne 1 exclue dans cette sélection).

2) quelqu'un pourra commenter chaque ligne de cette code :

Sub DeleteStockTransfer()

    rep = MsgBox("Are you sure you want to delete the data on 7S-Stock Transfer ?", 20)
    If rep = 7 Then
        Exit Sub
    End If

    Set fst = Sheets("7S-Stock Transfer")
    fst.Unprotect "Siva"

    Set plage = Union(fst.Range("A1").CurrentRegion.Offset(1, 0), fst.Range("F1").CurrentRegion.Offset(1, 0))
    plage.Interior.Color = xlNone
    plage.ClearContents

    fst.Activate
    Range("A2").Select
    fst.Cells.Locked = True
    fst.Protect "Siva"
End Sub

Merci

bonjour

 Sub DeleteStockTransfer()

        rep = MsgBox("Are you sure you want to delete the data on 7S-Stock Transfer ?", 20)
        'Affiche un message dans une boîte de dialogue, attend que l'utilisateur clique sur un bouton
        'puis renvoie une valeur de type Integer qui indique le bouton choisi par l'utilisateur
        ' rep = prend la valeur renvoiee

        If rep = 7 Then   ' No >>>>> 7
            Exit Sub 'ne fait rien
        End If

        Set fst = Sheets("7S-Stock Transfer")

        fst.Unprotect "Siva" ' déprotéger la feuille pour que vous puisse l utiliser , modifier mot de passe "Siva"
        Set plage = Union(fst.Range("A1").CurrentRegion.Offset(1, 0), fst.Range("F1").CurrentRegion.Offset(1, 0))

        plage.Interior.Color = xlNone
        plage.ClearContents
        fst.Activate
        Range("A2").Select
        fst.Cells.Locked = True
        fst.Protect "Siva" 'protéger la feuille a nouveau pour empecher son utilisation , modification
    End Sub