Bonjour
Essaye en nommant les plages (Voir Onglet Formules ==> Gestionnaire de Noms)
PlageNon ='PVC NEUF'!$B$40:$F$40
PlageSans ='PVC NEUF'!$B$57:$F$57
PlageSelectionner ='PVC NEUF'!$B$9:$F$9;'PVC NEUF'!$B$15:$F$16;'PVC NEUF'!$B$22:$F$22;'PVC NEUF'!$B$24:$F$25;'PVC NEUF'!$B$27:$F$28;'PVC NEUF'!$B$30:$F$30;'PVC NEUF'!$B$32:$F$36;'PVC NEUF'!$B$42:$F$46;'PVC NEUF'!$B$48:$F$49;'PVC NEUF'!$C$52 'PVC NEUF'!
Puis en modifiant la macro :
Sub Remise_a_zero()
Application.ScreenUpdating = False
Range("PlageSelectionner").Value = "Sélectionner"
Range("PlageNon").Value = "Non"
Range("PlageSans").Value = "Sans"
Range("A2:B3").Value = "Référence: ……………………."
Range("E2:F4").ClearContents
Range("C2:D4").Select
End Sub
Amicalement
Nad