Suite à la discussion sur limpression des cellules, En fait à présent je voudrais ajouter des numéros de pages.
Pour cela j'ai ecris ce code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Imprimer_BeforeDoubleClick()
'Pour imprimer les feuilles de l'annexe
 
    derlig = Range("C65536").End(xlUp).Row
 
    If 8 < derlig < 38 Then
    Sheets("Canevas").Cells(4, 14) = "1/2"
    Sheets("Annexe").Cells(9, 6) = "2/2"
End If
    If 37 < derlig < 67 Then
    Sheets("Canevas").Cells(4, 14) = "1/3"
    Sheets("Annexe").Cells(9, 6) = "2/3"
    Sheets("Annexe").Cells(38, 6) = "3/3"
End If
 
    If 66 < derlig < 96 Then
    Sheets("Canevas").Cells(4, 14) = "1/4"
    Sheets("Annexe").Cells(9, 6) = "2/4"
    Sheets("Annexe").Cells(38, 6) = "3/4"
    Sheets("Annexe").Cells(67, 6) = "4/4"
End If
 
    If 95 < derlig < 125 Then
    Sheets("Canevas").Cells(4, 14) = "1/5"
    Sheets("Annexe").Cells(9, 6) = "2/5"
    Sheets("Annexe").Cells(38, 6) = "3/5"
    Sheets("Annexe").Cells(67, 6) = "4/5"
    Sheets("Annexe").Cells(96, 6) = "5/5"
End If
 
    ActiveSheet.PageSetup.PrintArea = "$A$9:$G$" & derlig
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveSheet.PrintOut
 
End Sub
Cependant la meme si la derniere ligne est entre 9 et 38 alors ça m'ecrit 1/5; 2/5; 3/5... et ce sous forme de date!!

J'ai reussi à indiquer les pages sous format texte mais j'ai toujours le meme pb pour ce ki concerne le reste..