Fusionner les N° de semaine

Bonjour, j'ai un problème, certainement tout bête mais je n'arrive pas à trouver le bon raisonnement.

J'ai la liste des semaines en colonne

41

41

41

41

41

42

42

42

42

etc..

et je veux les fusionner (par semaine) afin de gagner en lisibilité (il n'y a pas de macro qui viendra lire les n° de semaine, c'est juste un repère temporel) et je n'arrive pas à structurer la macro car ce que j'ai commencé à faire, ça ne fusionne que les lignes deux par deux :/

Bonsoir,

Ci-joint une proposition à tester

Bonne soirée

Bouben

Bonsoir bouben, super \o/ ca fonctionne...Mais j'ai rien compris à la macro. :/ du coup...Bah rdv sur l'autre sujet car je souhaite adapter le principe des semaines également dans le fichier suivi cardio

Merci à toi

Bonjour,

Une proposition similaire à bouben.

Cdlt.

Public Sub DEMO()
Dim lastRow As Long, rw As Long, startRow As Long, endRow As Long

    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With

    With ActiveSheet
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        startRow = 2
        For rw = 2 To lastRow
            If Not .Cells(rw + 1, 1) = .Cells(rw, 1) Then
                endRow = .Cells(rw, 1).Row
                With .Range(.Cells(startRow, 1), .Cells(endRow, 1))
                    .HorizontalAlignment = xlLeft
                    .VerticalAlignment = xlTop
                    .MergeCells = True
                End With
                startRow = endRow + 1
            End If
        Next rw
    End With

    Application.DisplayAlerts = True

End Sub

Bonjour jean-éric. Merci pour le code, j'ai pu adapter sans trop de difficulté et ça fonctionne impec.

Merci à tous les deux