Bonjour et merci tout d'abord pour votre précieuse aide.

Voici tout d'abord je souhaiterais aligner verticalement toute la colonne.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
  With xlWorkSheet
            .Cells().Font.Size = 10
            .Range("A1:F1").Interior.Color = 0
            .Range("A1:F1").Font.Color = 16777215
            .Range("A1").ColumnWidth = 5
            .Range("B1").ColumnWidth = 49
            .Range("C1").ColumnWidth = 49
            .Range("D1").ColumnWidth = 5
            .Range("E1").ColumnWidth = 10
            .Range("F1").ColumnWidth = 20
            .Range("D1").VerticalAlignment = Right
            .Range("E1").VerticalAlignment = Right
        End With
Tout le code fonctionne, sauf .Range("xx").VerticalAlignment

Impossible de définir la propriété VerticalAlignment de la classe Range.
Ensuite le probléme de mise en page

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
   With xlWorkBook.ActiveSheet.PageSetup
            .LeftMargin = 0.25
            .RightMargin = 0.25
            .TopMargin = 0.75
            .BottomMargin = 0.75
            .HeaderMargin = 0.3
            .FooterMargin = 0.3
        End With
Le code ne génére par d'erreur, mais la mise en page n'est pas prise en considération.

Merci encore