Correction macro

Salut,

Voilà sur un autre forum j'avais demander comment ajuster automatiquement un hauteur de cellule fusionnée l'on m'a donné ce code :

Option Explicit

Private Sub Worksheet_Change(ByVal sel As Range)
    If Not Intersect(sel, Union(Range("C12:C16"), Range("E15"), Range("G33"), Range("G26"))) Is Nothing Then
    Dim cel As Range
    For Each cel In sel
    Application.EnableEvents = False
    cel.Value = UCase(cel.Value)
    Application.EnableEvents = True
    Next cel
End If
    [E60].Rows.EntireRow.AutoFit
End Sub

(((--(comme vous l'aurez compris, il y a dejà une macro avant, pour automatisé les MAJ.)

malheureusemetn le forum précedent est mort...et plus personnes ne répond...(https://www.commentcamarche.net/
Pi le site ci-joint.fr ne fonctionne pas pour le moment, dès qu'il sera à nouveaua actif, je vous enverrez le lien de mon fichier ;)-- )))


mais je ne crois pas qu'il fonctionne...ou alors il faut faire des manouvres avant (comme pour les MAJ. une fois sorti de la cellule (par une tab. un enter ou un clic sur une autre cellule) celle ci se met automatiquement) je souhaiterai la même chose pour l'ajustement automatique de la hauteur...

merci d'avance =D
P.S : je ne m'y connai pas super bien en macro/VBA...donc si il était possible d'y aller molo ;)Configuration: Windows Vista