Sub IdentifierPointsCollecte()
Dim ClnEtq As Collection, Cel As Range, RngA As Range, L As Long, RngSel As Range
Set ClnEtq = New Collection
For Each Cel In Feuil5.UsedRange
' If VarType(Cel.Value) = vbString And IsNumeric(Mid$(Cel.Value, 2)) Then Cel.MergeArea.Style = "EtqNorm"
If Cel.Style Like "Etq*" And Not IsEmpty(Cel.Value) Then
ClnEtq.Add Item:=Cel, Key:=Cel.Value
Cel.MergeArea.Style = "EtqNorm"
End If
Next Cel
T = [t_ListeCourses[[CHOIX (x)]:[Localisation]]].Value
For L = 1 To UBound(T, 1)
If Not IsEmpty(T(L, 1)) Then
On Error Resume Next...