Problème avec Merge (fusionner)

[awa123]

Bonjour,

je ne comprends pas pourquoi le code n'execute pas la fusion des cellules que je lui dis par ce code :

Range(Worksheets("mensuel1").Cells(5, 3), Worksheets("mensuel1").Cells(5, 4)).UnMerge

et mon code complet est celui ci

Sub Recup()

    Dim Plage As Range
    Dim NomFeuille As String
    Dim feuilleinitiale As String
    Dim tableau1()    ' représente les différents sites
    Dim tableau2()    ' représente les repos habituel
    Dim Dercol As Integer




    feuilleinitiale = CStr(Val(ActiveSheet.Name))

    With Worksheets(feuilleinitiale)
        'définie la plage a` recopier dans l'onglet de base
        Set Plage = .Range(.Cells(1, 1), .Cells(80, 40))
        tableau1 = Range("A4:P21")
        tableau2 = Range("A23:T30")
    End With



    With Worksheets("mensuel1")


        ' chercher la dernière colonne non utilisée sur la ligne 3
        For i = 7 To 37
            If .Cells(i, 2).Value = feuilleinitiale Then    ' And Worksheets(feuilleinitiale).Cells(5, 1) <> "" Then

                Range(Worksheets("mensuel1").Cells(5, 3), Worksheets("mensuel1").Cells(5, 4)).Merge

            End If
        Next i

    End With


End Sub

Je vous joins le fichier pour le voir

merci beaucoup

 

[job75]

Re : Problème avec Merge (fusionner)

Bonsoir awa123,

Sheets("mensuel1").Cells(5, 3).Resize(, 2).Merge

A+