Bonjour,
J'ai vue de nombreux topic à ce sujet mais après plusieurs tentatives mon fichier bug
J'aimerai faire un copier de coller de valeur.
Ci-dessous la ligne du code VBA qui ne passe pas :
With ShSynthese
LigneDebutSynthese = DerniereLigneSynthese
AireACopier.Copy
.Cells(DerniereLigneSynthese + 1, PremiereColonneSynthese).Select
ShSynthese.PasteValue
DerniereLigneSynthese = ShSynthese.Cells(ShSynthese.Rows.Count, PremiereColonneSynthese).End(xlUp).Row
.Range(ShSynthese.Cells(LigneDebutSynthese + 1, 1), ShSynthese.Cells(DerniereLigneSynthese, 1)) = CelluleFeuilles
End With