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.
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.