XL 2019 Macro effacement de certaines cellules ciblées

chinel

XLDnaute Impliqué
Bonjour, j'ai un code mais sûrement avec une erreur mais je débute dans le domaine de VBA, besoin d'aide merci !
Certaines cellules s'effacent mais pas les autres.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("SMED").Unprotect "manu01"
Range("L22:L26").Select
Range("J7").Select
Range("J9:J11").Select
Selection.ClearContents

Application.DisplayFullScreen = True
ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub
 

Statistiques des forums

Discussions
311 730
Messages
2 081 991
Membres
101 856
dernier inscrit
Marina40