taille d'impression objets

Re : taille d'impression objets

j'ai trouvé sur un fil, du VBA par Mita:
Par notre ami Mytå
Sub CelluleEnCentimetres()
Dim cm As Integer
cm = Application.InputBox("Hauteur de la cellule en cm.", Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
cm = Application.InputBox("Largeur de la cellule en cm.", Type:=1)
If cm Then
Selection.ColumnWidth = cm * 4.663
End If
End Sub
___________________
super, ça marche, sauf que je recherche le m^^eme, mais sur
une selection de plusieurs cell.