' Copie en valeurs onglet "Détail WU"
Dim fWU As Worksheet, rWU As Range
Set fWU = WbkS.Worksheets("Détail WU")
Set rWU = fWU.Range("H10:W26,AJ10:AY26,H29:W45,AJ29:AY45,H47:W63,AJ47:AY63,H66:W82,AJ66:AY82,H84:W100,AJ84:AY100,H102:W118,AJ102:AY118")
For Each cell In rWU
cell.Value = cell.Value
Next cell