Dim LigneDeb As Integer
Dim Lignefin As Integer
Dim NbLignes As Integer
Dim TailleSketchDefaut As Integer
TailleSketchDefaut = 125
LigneDeb = 2
Do
Cells(LigneDeb, 3).Select
Selection.End(xlDown).Select
Lignefin = ActiveCell.Row
NbLignes = Lignefin - LigneDeb
Rows(LigneDeb & ":" & Lignefin - 1).RowHeight = TailleSketchDefaut / NbLignes
LigneDeb = Lignefin
Loop Until IsEmpty(Cells(Lignefin, 3)