Copier/collé avec critère avancé

[kalmard]

Bonjour le forum,
J'ai problème qui me bloque depuis quelques temps, après creusé et rien trouvé je viens solliciter votre aide.

j'ai une macro qui copie les cellules d'un tableau (à 3 champs Numsecu, Nom, Club) contenu dans une feuille nommée Source pour les coller dans une autre nommée Copie selon le critère de ressemblance du champ "Numsecu" c-à-d que lorsque la valeur du champ "Numsecu"
est la même dans chaque onglet alors toute la ligne correspondante est copiée dans Source puis collée dans Copie.

Tout cela ma macro arrive à le faire sans problème, ce que je souhaite c'est de laisser vide les champs Nom et Club (dans la feuille Copie) quand Numsecu n'est pas le même dans chaque onglet.


Pour mon exemple ci-joint, je veux qu'une fois ma macro exécuter, que les champs Nom et Club de Robinho et Ronaldo (de la feuille Copie) soient vides .


Voici le code que j'utilise pour copier et coller dans la feuille "Copie":

Dim i As Long
Dim recherche As Range
Dim c As Range
 
With Sheets("Copie")
endlig = .Cells(5, 5).End(xlDown).Row
 
    For i = 6 To endlig
 
        Set recherche = .Cells(i, 5)
        With Worksheets("Source").Range("D11:D14")
            Set c = .Find(recherche, LookIn:=xlValues)
            If Not c Is Nothing Then
                recherche.Offset(0, 1) = c.Offset(0, 1)
                recherche.Offset(0, 2) = c.Offset(0, 2)
            End If
        End With
    Next i
End With
 
End Sub

Merci par avance pour vos réponses .


Kalmard.