Option Explicit
Sub InitialiserComboLogin()
Dim T1(), T2(), L1&, L2&, DicPér As New Dictionary
T1 = ThisWorkbook.Sheets("Data_Périodes").UsedRange.Value
For L1 = 2 To UBound(T1, 1): DicPér(T1(L1, 1)) = Empty: Next L1
T2 = ThisWorkbook.Sheets("Data_Personnel").UsedRange.Value
L1 = -1
For L2 = 2 To UBound(T2, 1)
If DicPér.Exists(T2(L2, 1)) Then L1 = L1 + 1
Next L2
ReDim T1(0 To L1, 0 To 1)
L1 = -1
For L2 = 2 To UBound(T2, 1)
If DicPér.Exists(T2(L2, 1)) Then L1 = L1 + 1: T1(L1, 0) = T2(L2, 1): T1(L1, 1) = T2(L2, 2) & " " & T2(L2, 3)
Next L2
ThisWorkbook.Sheets("Déclaration").ComboLogin.List = T1
End Sub