Sub Lettres_Mission()
Dim t#
t = Timer
Dim Lgn_Déb, Col_Déb 'Début des données exploitées
Dim Col_Baliseurs, Col_Infos, i As Long, lgn_Fin As Long, j As Long, k, m As Long, c As Range, Nm As Name
Dim Dic As New Scripting.Dictionary
Dim Wsh_GR As Worksheet, Wsh_PR As Worksheet, Wsh_Lettre As Worksheet, Feuilles As Sheets, Sh As Worksheet
Dim Col_Fin, Clef, Missions, Tb_Missions(), tbH
Dim SRép$
Dic.CompareMode = TextCompare
SRép = chemin & "Lettres de Mission " & Feuil1.[H1] & "\" 'à adapter
...