Hauteur de ligne automatique

Salut Magoo, salut le forum,

La macro ci-dessous à besoin que la colonne A soit vide et, pour ne pas remplir TOUTES les lignes mais seulement les lignes éditées, elle fait référence à la colonne B (à adapter)... La hauteur de ligne en pixel se place dans la colonne A

Sub Macro1()
'boucle sur toutes les cellules de la colonne B (à adapter)
For Each cel In Range("B1:B" & Range("B65536").End(xlUp).Row)
'place en A la hauteur de ligne en pixel
cel.Offset(0, -1).Value = Round(cel.Height * 1.3333333, 2)
Next cel 'prochaine cellule de la boucle
End Sub

À plus,

Robert
Robert

Merci beaucoup je vais gagner du temps sur une manip que je fais réguliairement.

Magoo