Bonjour j'aimerai étendre mon code afin que cela sélectionne la ligne suivante une fois que cela est fait.
Malheureusement cela ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub dab()
 
Dim Tab1() As String
Dim Tab2(1,43) As String
Dim i As Integer
 
i = 4
For j = 3 To 47
 
    Tab1 = Split(Cells(i,j).Value, " - ")
    Tab2(0 ,j-3) = Tab1(0)
    Tab2(1, j-3) = Tab1(1)
 
Next j
 
End Sub
Si j'ai bien compris c'est du à la dimension du tableau (dynamique pour le split et de taille fixe pour le for) ?

Mais comment faire ?

Merci d'avance.