Sub Ajuste_Hauteur_ligne()
Dim derligne As Integer
[COLOR=red]Dim dercol As Integer[/COLOR]
[COLOR=green]'derligne = Range("c1:e65536").End(xlUp).Row[/COLOR]
derligne = ActiveSheet.Cells.Find(what:="*", after:=[A1], searchorder:=xlByRows, searchdirection:=xlPrevious).Row
[COLOR=red]dercol = ActiveSheet.Cells.Find(what:="*", after:=[A1], searchorder:=xlByColumns, searchdirection:=xlPrevious).Column[/COLOR]
ActiveSheet.Rows("03:" & derligne).AutoFit
[COLOR=red]ActiveSheet.Columns("03:" & dercol).AutoFit[/COLOR]
For i = 3 To derligne
ActiveSheet.Rows(i).RowHeight = ActiveSheet.Rows(i).RowHeight + 5
[COLOR=darkgreen]'ActiveSheet.Columns(i).ColumnWidth = ActiveSheet.Columns(i).ColumnWidth[/COLOR]
Next
End Sub