Bonjour

Voila j'ai ce code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sheets("piedpage").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A1:F8").Select
    Selection.Copy
    Sheets("DEVIS").Select
    [A65536].Select
    Selection.End(xlUp)(2).Select
    ActiveSheet.Paste
    End Sub
qui fonctionne bien mais j'aimerais mettre des conditions
- si le nombre total de lignes est superieur à 40 on colle le pied de page
- si le nombre total de ligne est inferieure à 40 on ajoute des lignes jusqu'à 40

pensez-vous que cela soit possible???
Merci d'avance pour votre aide
Linda