Droite et gauche

Bonjour

j'ai fait une ùacro pour mettre le contenu d'une colonne à droite et l'autre à gauche vu toutes les feuilles que j'ai mais cela ne marche pas

pouvez vous m'aidez

Sub Macro1()

'

' Macro1 Macro

' Macro enregistrée le 06/03/2012 par freinaud

'

Sheets("Envoi").Activate

Columns("A:h").Select

Selection.Columns.AutoFit

Range("I9:I132").Select

With Selection

.HorizontalAlignment = xlRight

.VerticalAlignment = xlCenter

Range("j9:j132").Select

With Selection

.HorizontalAlignment = x1left

.VerticalAlignment = xlCenter

End With

End With

End Sub

Bonsoir

A voir

je ne comprends pas trop la question

Sub Macro1()
  With Sheets("Envoi")
    .Columns("A:H").AutoFit

    With .Range("I9:I132")
      .HorizontalAlignment = xlRight
      .VerticalAlignment = xlCenter
    End With

     With .Range("J9:J132")
      .HorizontalAlignment = xlLeft
      .VerticalAlignment = xlCenter
    End With
  End With
End Sub

bonjour

merci de ton aide j'avais oublié un end witch

bonne journée