For Each Ws In .Worksheets 'Pour chaque feuille de la collection des feuilles du Classeur
With Ws.Cells(2, 2)
If .Value = "Arrivée" Then
ReDim Preserve Tab_Noms(3, X) 'on redimmensionne le tableau 3 lignes x colonnes selon nombre d'agents
Tab_Noms(1, X) = Ws.Name 'ligne 1 on ajoute le Nom de la feuille (Agent)
Tab_Noms(2, X) = Ws.Name 'ligne 2 on ajoute le Nom de la feuille (Agent)
Tab_Noms(3, X) = .Value 'ligne 3 on ajoute l'initial du Nom de la feuille (Agent)
X = X + 1 'on incremente le Nombre de Colonnes
End If
End With
Next Ws