Adaptation d'une maco trouvé sur e cite faite par Mike-31

Bonjour à tous,

J’ai trouver sur le Forum d'assistance informatique>Bureautique>Excel , le code si dessous

Modifié par Mike-31 le 19/05/2016 à 18:33

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each cel In ActiveSheet.UsedRange
    If cel <> "" Then
    Set M = cel.MergeArea
    M.UnMerge
    M.WrapText = True 'renvoie à la ligne
    M.HorizontalAlignment = xlCenterAcrossSelection
    M.Rows.AutoFit
    M.Merge
    M.HorizontalAlignment = xlGeneral 'facultatif bien sûr
    End If
    Next
End Sub

Il correspond à mon besoin, mais, j’aimerais pouvoir définir la première et dernière ligne à prendre en compte, avant de lancer la macro.

Pouvez vous me dire ce qu’il faut faire.

Merci pour vos réponses.

Cordialement