réinitialiser et masque une colonne avec des pourcentages

Bonjour à tous,

ca fait un bail que je ne suis pas venu sur le forum, encore une fois bien le bonjour au forum...
j'ai un petit souci je suohaiterais réinitialiser les pourcentages saisis sur les cellule L29 à L40 puis les cachés,
En fait je voudrais que rien ne s'affiche tant qu'elle ne sont pas saisis, et tout cela lorsqu'on clic sur mon logo
voici mon code :

Sub Picture15_Click()
Dim i As Long

Sheets("Facture ou Devis").Select
Sheets("Facture ou Devis").Copy After:=Sheets(1)

Application.ScreenUpdating = False
Sheets("Facture ou Devis").Activate
Range("B27:J40").Copy
Sheets("Feuil2").Activate
i = Range("A65536").End(xlUp).Row + 1
Sheets("Feuil2").Cells(i, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("L6").Select
Sheets("Facture ou Devis").Activate
Var = Left(Range("L6"), (Len(Range("L6")) - 5))
Range("B27:J40,L15:M18,D44:J47,D15:I16,L5:N7").ClearContents
Range("D17").ClearContents
Range("F17").ClearContents
Range("I17").ClearContents
Range("L6").Value = ""
Range("L6").Value = Var + 1 & "/" & Format(Date, "yyyy")
Application.ScreenUpdating = True

End Sub

Merci d'avance de votre aide.