Sub Macro1()
Dim Num_Ligne As Long
Num_Ligne = 2
Application.DisplayAlerts = False
While Cells(Num_Ligne, 1) <> ""
Ligne_Fin = Num_Ligne
While Cells(Ligne_Fin, 1) = Cells(Ligne_Fin + 1, 1)
Ligne_Fin = Ligne_Fin + 1
Wend
With Range(Cells(Num_Ligne, 1), Cells(Ligne_Fin, 1))
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.MergeCells = True
End With
Num_Ligne = Ligne_Fin + 1
Wend
Application.DisplayAlerts = True
End Sub
set f= sheets("le nom de la feuille")
with f.range(f.cells(2,1),f.cells(rows.count,1).end(xlup)
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.MergeCells = True
end with
set f= sheets("le nom de la feuille")
with f.range(f.cells(2,1),f.cells(2,1).end(xldown)
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.MergeCells = True
end with[/CODE