Macro information

SRBIJA

XLDnaute Junior
Bonjour,

J'ai ce code suivant :


Sub référence_dans_onglet_correspondant()

For n = 15 To ActiveSheet.Range("C65536").End(xlUp).Row
feuil = Range("C" & n).Value
derlin = Sheets(feuil).Range("A65536").End(xlUp).Row + 1
ActiveSheet.Range("A" & n & ":C" & n).Copy Destination:=Sheets(feuil).Cells(derlin, 1)
Next n
End Sub


Ce que je voudrais faire c'est que lors des copies dans les feuilles de destination correpondante, le format (mise en page) soit supprimé

Merci d'avance pour vos réponses.
 

Discussions similaires

Réponses
4
Affichages
257

Statistiques des forums

Discussions
312 931
Messages
2 093 719
Membres
105 794
dernier inscrit
mallet