Bonjour,
Quelqu'un pourrait-il m'aider à modifier la formule ci-dessous pour que le copier/coller se fasse sur les valeurs et non sur le contenu/formule ?
Sub Synthèse()
Dim Sh As Worksheet
With Sheets("Synthèse")
.[A2:J65536].Clear
Application.ScreenUpdating = 0
For Each Sh In Worksheets
If Sh.Name <> .Name Then _
Sh.Range("A11:J" & Sh.[A65536].End(xlUp).Row).Copy .[A65536].End(xlUp)(2)
Next
.[A2:J65536].Sort Key1:=.[G2], Order1:=xlAscending, Header:=xlNo
End With
End Sub
D'avance merci de votre aide précieuse
Quelqu'un pourrait-il m'aider à modifier la formule ci-dessous pour que le copier/coller se fasse sur les valeurs et non sur le contenu/formule ?
Sub Synthèse()
Dim Sh As Worksheet
With Sheets("Synthèse")
.[A2:J65536].Clear
Application.ScreenUpdating = 0
For Each Sh In Worksheets
If Sh.Name <> .Name Then _
Sh.Range("A11:J" & Sh.[A65536].End(xlUp).Row).Copy .[A65536].End(xlUp)(2)
Next
.[A2:J65536].Sort Key1:=.[G2], Order1:=xlAscending, Header:=xlNo
End With
End Sub
D'avance merci de votre aide précieuse