Sub generer_rapport()
'
' generer_rapport Macro
'
Sheets("REX").Select
Sheets("REX").Copy Before:=Sheets(8)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I4:L4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("REX (2)").Select
Sheets("REX (2)").Name.Paste ' c'est là que ca coince
End Sub