Sub Supprimer_données_brutes_PR_Type_B()
Range("G9, J8:J9, Q7:Q8, J19:K19, O22:O26, B32:C42, G32:C42, N32:N42, T32:T42, K49, Q49").ClearContents
End Sub
Un truc de ce type pour le bouton qui efface les données et :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)...