Bonsoir,
tu sélectionnes les lignes (1 à 240) et tu fais un copier/collagespécial format :
Rows('1:240').Select
Selection.Copy
Sheets('Feuil3').Select
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
le défaut c'est que ça te copie plus que la hauteur des lignes.
Pour y remédier, si tu veux un format vierge en dehors des hauteurs de lignes, tu refais un copier/collage spécial format des colonnes d'une feuille vierge dans ta feuille de destination
cordialement
Message édité par: odvj, à: 30/05/2006 02:46