Sub listage_absents()
Set mondico = CreateObject("Scripting.Dictionary")
For i = 3 To 35
For j = 25 To 75
If Cells(j, i) <> "" Then temp = Cells(j, 1)
mondico(temp) = temp
Next j
Range(Cells(1, i), Cells(100, i)).ClearContents
For Each c In mondico
Cells(Rows.Count, i).End(xlUp).Offset(1) = c
Next c
Next i
End Sub