Sub Effacer_Données()
Sheets(Array('Deom S.', 'Hervieu Y.', 'Junker M.', 'Martin S.', 'Neef O.')).Select
Sheets('Deom S.').Activate
Range('A28:H28').Select
Selection.AutoFill Destination:=Range('A4:H28'), Type:=xlFillDefault
Range('A4:H28').Select
Range('J28:M28').Select
Selection.AutoFill Destination:=Range('J6:M28'), Type:=xlFillDefault
Range('J6:M28').Select
End Sub