Private Sub Worksheet_Calculate()
If ActiveSheet.Name <> Me.Name Then Exit Sub
Dim r As Range, sel As Range, o As Object
Set r = [B5:H5] 'plage à adapter
Application.ScreenUpdating = False
ActiveCell.Activate
Set sel = Selection
For Each o In DrawingObjects 'suppression sélective
If Not Intersect(o.TopLeftCell, r.Rows(3)) Is Nothing Then o.Delete
Next
Feuil2.DrawingObjects("Image 1").Copy 'noms à adapter
For Each r In r
If Application.CountIf([Fériés], r) Then
r(3).Select
Me.Paste
Selection.Width = r.Width
End If
Next
sel.Select
'---pour vider le presse-papiers---
[A1].Copy
Application.CutCopyMode = 0
End Sub