Fusionner doublons

[Material]

Bonjour,
Je sais que beaucoup ont déjà posté sur ce sujet. Je m'y connais tellement peu que je n'arrive pas à faire fonctionner les macros que je copie colle dans VB..

Mon cas est le suivant :

NOM / Prénom /A/B/C/D
DUPONT/jean /1/ / /10
DUPONT/jean / / /5/ /
DUPONT/jean / /2/ / /

Je souhaite :
DUPONT/jean /1/2/5/10

Je me retrouve régulièrement avec des "triplons".

Mon fichier est constitué de 3000 lignes.

Je ne sais pas quoi faire, j'ai passé beaucoup de temps à faire manuellement comme une poire écervelée.

J'ai donc besoin de votre aide
Merci d'avance,
Agathe

 

[zeb]

Salut,

A étudier :

Dim zone    As Range
Dim rownum  As Long
Dim lastrow As Range

Set lastrow = Cells(Rows.Count, 1).End(xlUp).EntireRow

Set zone = Range(Rows(1), lastrow)
zone.Sort Key1:=Range("A1"), Key2:=Range("B1"), Herder:=xlYes
    
For rownum = lastrow.Row To 2 Step -1
    If Cells(rownum, 1).Text = Cells(rownum - 1, 1).Text And _
       Cells(rownum, 2).Text = Cells(rownum - 1, 2).Text Then
        For Each cell In Intersect(Rows(rownum), Range("C:IV"))
            If cell.Offset(-1).Text = "" And cell.Text <> "" Then
                cell.Offset(-1).Value = cell.Text
            End If
        Next
        Rows(rownum).Delete
    End If
Next

 

[Material]

Bonjour,
J'ai copié collé la macro dans VBA, et il s'obstine maintenant à me dire : "erreur d'exécution 13 incompatibilité de type".
Qu'en pensez-vous ?
J'ai du mal à tout comprendre dans les macros, je connais que très peu le langage.
Cordialement,
agathe

 

[zeb]

Bonjour,

S'il y a une erreur, merci de dire à quelle ligne.
J'ai quelque peu modifié mon exemple.
A étudier, et non pas à copier bêtement.