' Effacer_cellules_recueil Macro
Sub Effacer_cellules_recueil()
Dim Ctl As Shape
Application.EnableEvents = False
With Worksheets("Recueil besoins")
I = 0
Do: I = I + 1
R$ = Choose(I, "B2", "F2", "B4", "B5", "B6", "F6", "B8:D10", "F8:J10", "C13:D17", "E15:J17", "E22:J22", "E33", "I21", "B45", "F96:J102", "G106:J108", "A110:J115", "F118", "B120", "F120", "")
If R$ = "" Then Exit Do
If .Range(R$).MergeCells Then .Range(R$).MergeArea.ClearContents Else .Range(R$).ClearContents
Loop
For Each Ctl In .Shapes
If Left(Ctl.Name, 9) = "Check Box" Then .Shapes(Ctl.Name).OLEFormat.Object.Value = 0
Next Ctl
End With
Application.EnableEvents = True
End Sub