Macro vba-pblm d'écrasement de données !

Bonjour à tous,

Je recherche une aide précieuse pour réaliser au mieux une macro vba.
Ma macro me permet de faire une sorte de recherchev pour récupérer les infos d'une colonne par rapport à un identifiant.
Seul hic, sur cette colonne, un même identifiant peut avoir plusieurs réponses. (Ex: 1-A, 1-B, 1-C, 2-A, 3-A, 3-B, 3-C,...) Les réponses à la recherche sont copiées dans une seule cellule ce qui écrase donc les précédentes et je ne récupère alors que la derniere info. J'aimerais pouvoir récupérer toutes les lignes correspondant à l'identifiant recherché(la liste complète en fait). Le problème doit se situer au niveau de cette ligne de code:

If sDepart1 = MaFeuille.Cells(iLigne2, 10).Value Then 
             </MaFeuille.Cells(iLigne1, 3).Value = MaFeuille.Cells(iLigne2, 11).Value 
             End If 

Je pense qu'il faudrait insérer une sorte de n+1 par rapport à la première cellule mais là, mes capacités sont trop réduites! C'est pour ça que je fais appels à vous et à vos nombreuses connaissances.

Pour vous aider à comprendre, voici mon code en entier:

Public MonClasseur As Workbook 
Public MaFeuille As Worksheet 

'--------------------------------------- 
'## RECHERCHE ## 
'--------------------------------------- 

Sub RECHERCHEV() 
    'Déclaration des variables 
    Dim iLigne1 As Long 
    Dim iLigne2 As Long 
    Dim sDepart1 As Long 
   
    Set MonClasseur = ThisWorkbook 
    Set MaFeuille = MonClasseur.Sheets("EQE") 
     
    'Initialisation du compteur 1 
    iLigne1 = 2 

    'Exécute jusqu'à ce que la dernière cellule soit vide 
    Do Until MaFeuille.Cells(iLigne1, 1).Value = "" 
     
'$ $ $ Test le bon format de l'info 
        If Len(MaFeuille.Cells(iLigne1, 1).Value) < 5 Then 
            sDepart1 = "0" & MaFeuille.Cells(iLigne1, 1).Value 
         
        Else 
            sDepart1 = MaFeuille.Cells(iLigne1, 1).Value 

        End If 
         'Fin de l'hypothèse 
'$ $ $ 

        iLigne2 = 2 
         'Initialisation du compteur Loop 2 
         
        'Exécute jusqu'à ce que la dernière cellule de la colonne 10 soit vide 
        Do Until MaFeuille.Cells(iLigne2, 10).Value = "" 
             
            'Si la valeur de sDépart est égal à la cellule(ligne iLigne2, Colonne10) alors 
            'on écrira dans la cellule (ligne iLigne2, colonne 3) la valeur de la cellule (ligne iLigne1, colonne 11) 
             If sDepart1 = MaFeuille.Cells(iLigne2, 10).Value Then 
             MaFeuille.Cells(iLigne1, 3).Value = MaFeuille.Cells(iLigne2, 11).Value 
             End If 
              
             'Compteur boucle 2 
             iLigne2 = iLigne2 + 1 
            
         'Fermeture de la boucle 2 
         Loop 
          
          'Compteur boucle 1 
         iLigne1 = iLigne1 + 1 
                     
    'Fermeture de la boucle 1 
    Loop 

End Sub

Je vous remercie par avance pour votre aide,
Et à bientôt, j'espère.