For i = LBound(ListeVille) To UBound(ListeVille)
If UCase(ListeVille(i, 1)) Like clé Then
n = n + 1: ReDim Preserve b(1 To 10, 1 To n)
For k = 1 To 3: b(k, n) = ListeVille(i, k): Next k 'Ici il faut K= 1 to 2 et Non 3
' le tableau n'a que deux colonnes si je ne me trompe !
End If
Next i