Merci Pierre pour cette réponse !
J'ai bien modifié comme tu me l'as précisé : nb = Int(UBound(T, 1) / 10) par nb = Int(UBound(T, 1) / 250) mais j'ai un bug, cela me renvoit à une erreur sur : Turl(idx) = URL. Il doit certainement y avoir quelquechose d'autre à modifier mais là je suis perdu...
Peux tu m'aiguiller ?
With Sheets(1)
If col = 0 Then
ReDim Turl(0)
Turl(0) = URL & "&numbers[]=" & Me.TextBox3.Value
Info = Info & "Envoyé à : " & Me.TextBox2.Value
Else
derlig = .Range("A" & Rows.Count).End(xlUp).Row
T = .Range(.Cells(2, "A"), .Cells(derlig, col)).Value
T = Select_T(T, col, "x")
nb = Int(UBound(T, 1) / 250)
ReDim Turl(nb)
clic = 1
idx = 0
Turl(idx) = URL
For i = 2 To UBound(T, 1)
Turl(idx) = Turl(idx) & "&numbers[]=" & T(i, 5)
clic = clic + 1
If clic > 10 Then
clic = 1
idx = idx + 1
Turl(idx) = URL
End If
Next i
Merci
A bientot !