Comparaison de liste de nom

'début du programme test
Sub test()
'h va nous servir a chaque fois qu on a trouver un editeur qui n est pas dans la  colonne officiel on va le marquer et il faudra donc passer a la ligne suivante 
h = 1
'ici on selectionne la feuille excel ou on va utiliser le programme
Sheets("Feuil1").Select
'boucle qui comment a 1 ligne du premier nom de la SECONDE colonne et qui termine a 43 dernier nom de la SECONDE colonne comme tu l as mis dans le fichier que j ai télécharger
For i = 1 To 43
'on récupere le nom dans la colonne 2 est on le met dans la variable nom
nom = Cells(i, 2)
'par défaut on dit qu il est pas présent dans la colonne 1
present = False
'on va vérifier si il est present dans la colonne 1 pour se faire on parcour tout les nom de la ligne 1 a 34 dans ton exemple
For y = 1 To 34
'on va voir si on le trouve
If Cells(y, 1) = nom Then
'si on le trouve alors on dire qu il est present donc present = true
present = True
End If
Next y
'si on l a pas trouver dans la colonne present est tjs faux
If present = False Then
'donc on le note dans la colonne3
'ici on voit bien que le h est utilise pour savoir sur quel ligne ecrire le nom dans la colonne 3
Cells(h, 3) = nom
'on a ecrit le nom il faut donc rajouter 1 a h pou que le prochain nom se fasse sur la ligne suivante
h = h + 1
End If
Next i
'FINI
End Sub

Function Diff(champ As Range, champ2 As Range)
   Dim temp()
   ReDim temp(1 To champ.Count)
   j = 1
   For i = 1 To champ.Count
      témoin = IsError(Application.Match(Trim(champ(i)), champ2, 0))
      If témoin Then
         temp(j) = champ(i): j = j + 1
      End If
   Next i
   Diff = Application.Transpose(temp)
End Function


JB

'début du programme test
Sub test()
'h va nous servir a chaque fois qu on a trouver un editeur qui n est pas dans la  colonne officiel on va le marquer et il faudra donc passer a la ligne suivante
h = 1
'ici on selectionne la feuille excel ou on va utiliser le programme
Sheets("Feuil1").Select

'boucle qui comment a 1 ligne du premier nom de la SECONDE colonne et qui termine a 43 dernier nom de la SECONDE colonne comme tu l as mis dans le fichier que j ai télécharger
For i = 1 To 43
    'on récupere le nom dans la colonne 2 est on le met dans la variable nom
    nom = Trim(Cells(i, 2))
    'par défaut on dit qu il est pas présent dans la colonne 1
    present = False
    
    'on va vérifier si il est present dans la colonne 1 pour se faire on parcour tout les nom de la ligne 1 a 34 dans ton exemple
    For y = 1 To 34
        'on va voir si on le trouve
        If Trim(Cells(y, 1)) = nom Then
        'si on le trouve alors on dire qu il est present donc present = true
        present = True
        End If
    Next y
    
    'si on l a pas trouver dans la colonne present est tjs faux
    If present = False Then
        'donc on le note dans la colonne3
        'ici on voit bien que le h est utilise pour savoir sur quel ligne ecrire le nom dans la colonne 3
        Cells(h, 3) = nom
        'on a ecrit le nom il faut donc rajouter 1 a h pou que le prochain nom se fasse sur la ligne suivante
        h = h + 1
    End If
    
Next i
'FINI
End Sub