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.