Fusionner et centrer selon condition

Bonjour,

J'aimerais dans ma colonne A trouver les valeur identique et lorsqu'il y a des doublons faire un fusionner et centrer et ce avec une macro car mon fichier est très long et plusieurs doublons s'y retrouve ou parfois des triplets ou quadruple etc.

Merci de votre aide.

Bonjour,

pouvez-vous joindre un fichier exemple avec quelque données ? merci!

Voila une version très abrégé

Bonjour oly111,

à tester,

Sub test()
'je vous laisse le soin de déclarer les variables
Application.DisplayAlerts = False
fin = Cells(Rows.Count, 1).End(xlUp).Row
For i = fin To 2 Step -1
 n = n + 1
 If Cells(i, "A") = Cells(i - 1, "A") Then
    deb = fin - n
 Else
 If Cells(i, "A") <> Cells(i + 1, "A") Then deb = fin
 d = Range(Cells(deb, 1), Cells(fin, 1)).Address
 Debug.Print Range(Cells(deb, 1), Cells(fin, 1)).Address
    With Range(Cells(deb, 1), Cells(fin, 1))
        .WrapText = True
        .MergeCells = True
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    fin = fin - n
    n = 0
 End If
Next
Application.DisplayAlerts = True
End Sub

Édit:

ps/les lignes suivante ont été utile au test uniquement

' d = Range(Cells(deb, 1), Cells(fin, 1)).Address
' Debug.Print Range(Cells(deb, 1), Cells(fin, 1)).Address

elles peuvent être éliminées.

dois je seulement changer les "A" pour les bonnes colonnes de mon fichier ? Car j'essaie mais rien ne change.

sans souci finalement jai remis mes infos exactement comme le test et tout fonctionne ! Merci