Private Sub UserForm_Initialize()
With Accueil
.Label1.Caption = Sheets("Liste").Cells(1, 35)
.Label2.Caption = Sheets("Liste").Cells(1, 37)
.TextBox2 = Sheets("Alertes").Cells(1, 7)
End With
'***************
Sort_Feuille 'Ici on remplit et on tri le tableau "Tab_General"
'**************
End Sub