Fusionner cellules

Bonjour

J'ai un fichier Excel (fichier joint) qui est protéger par un mot de passe (mdp : 123 ) une partie de la feuille est verrouillée pour que l'on ne puisse pas modifiée son contenu

Je voudrais pouvoir fusionner les cellule qui contiennent la meme info (Essai et matin dans le fichier ) mais comme la feuille est protégée la fonction fusionner n'est plus accéssible.

Y a t'il une macro pour fusionner les cellules que je sélectionne

MErci

Bonjour,

quelque chose dans ce genre là ?

Sub Macro1()

    ActiveSheet.Unprotect Password:="123"
Application.DisplayAlerts = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    Selection.Merge

    ActiveSheet.Protect Password:="123"
    Application.DisplayAlerts = True
End Sub

Merci c'est tout à fait ça

Super