Discussion :

[bibvba]

Bonjour,

Je souhaite copier la premiere ligne du mon sheets(1) dans tous les onglets qui suivent. Pouvez-vous m'aider?

[fring]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets.FillAcrossSheets Sheets(1).Range(Range("A1"), Range("IV1").End(xlToLeft))

ou éventuellement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets.FillAcrossSheets Sheets(1).Range("1:1")

@+

[bibvba]

merci,de m'avoir répondu,

Pouvez-vous me dire comment faire pour faire un filtre auto de la cellule A1 a F1 pour tous les onglets

Merci d'avance

j'ai oublie de préciser que pour la colonne F je veux uniquement les cases non-vide

merci