Sub ListeOutput()
Dim TabGlob() As Variant
Dim TabDesinsc() As Variant
With Sheets("Liste Globale")
LastLine = .Range("A" & .Rows.Count).End(xlUp).Row
TabGlob = .Range("A1:G" & LastLine).Value 'on met les données dans un tablo vba
End With
With Sheets("Désinscrits")
LastLine = .Range("A" & .Rows.Count).End(xlUp).Row
TabDesinsc = .Range("A1:G" & LastLine).Value 'on met les données dans un tablo vba
End With
For i = LBound(TabGlob, 1) + 1 To UBound(TabGlob, 1) 'pour chaque ligne
For j = LBound(TabDesinsc, 1) + 1 To UBound(TabDesinsc, 1) 'pour chaque ligne
If TabGlob(i, 1) = TabDesinsc(j, 1) Then 'si on trouve le nom
For k = LBound(TabGlob, 2) To UBound(TabGlob, 2) 'on efface la ligne
TabGlob(i, k) = ""
Next k
End If
Next j
Next i
Sheets("Output").Range("A1").Resize(UBound(TabGlob, 1), UBound(TabGlob, 2)) = TabGlob 'on colle le tablo
Sheets("Output").Range("A1").Resize(UBound(TabGlob, 1), UBound(TabGlob, 2)).SpecialCells(xlCellTypeBlanks).Delete 'on supprime les lignes vides
End Sub