Sub Fiche_Word()
UsfInform.LabInform = "Création fiche en cours..."
UsfInform.Show [COLOR=Green]'False[/COLOR]
Worksheets("Collaborateurs").Activate
wDernLig = Range("A65536").End(xlUp).Row
Range("A3", "T" & wDernLig).Select
Selection.Sort Key1:=Range("O3"), Order1:=xlAscending, Header:=xlNo
Range("A1").Select
wFlag_Arreter = True
[COLOR=Green]'Unload UsfInform[/COLOR]
End Sub