besoin d'un expert en vba

Sub archivage_automatique()
Dim premligne_don As String 'déclare la variable premligne_don
Dim l As Long 'déclare la variable l
Dim cel As Range 'déclare la variable cel

'définit la variable premligne_don
premligne_don = InputBox('Vous voulez archiver un client ? Entrer son N° de ligne', , 2)

Sheets(1).Select 'sélectionne l'onglet 1

'condition si le bouton annuler n'est pas cliqué
If premligne_don <> '' Then
l = CLng(premligne_don) 'définit la variable l
'copie et colle la ligne renseignée
Rows(l).Copy Destination:=Sheets(2).Range('A9').End(xlDown). _
Offset(1, 0)
End If 'fin de la condition

'redéfinit la variable l
premligne_don = InputBox('Votre client a bien été archivé dans la feuille Archive. Entrer son numéro de ligne pour le supprimer de la base de données Client', , l)
l = CLng(premligne_don) 'redéfinit la variable l

'condition : si le bouton 'Annuler' est cliqué
If premligne_don = '' Then
Exit Sub 'sort de la procédure
End If 'fin de la condition

'boucle sur toute les cellules de la ligne l
For Each cel In Range(Cells(l, 1), Cells(l, 256).End(xlToLeft))
'condition : si la cellule ne contient pas de formules
'efface le contenu de la cellule
If cel.HasFormula = False Then cel.ClearContents
Next cel 'prochaine cellule de la boucle
End Sub

Cliquez pour agrandir...