Bonjour,

Je récupère depuis internet des données ( nom et chiffres) qui arrive dans une meme cellule, puis avec la fonction "convertir" d'excel 2007 je dissocie tout ca ( donc une cellule pour chaque element), puis à l'aide d'un commandbutton je fais un copier/coller de chaque ligne de chiffres dans differentes feuilles selon le nom

la macro du commandbutton fonctionne si je saisi moi meme les donnees mais ne fonctionne plus des que j'importe depuis internet !!!

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
Private Sub CommandButton1_Click() 
Dim B(2) As Variant 
B(1) = "Agence TIP" 
B(2) = "Matin Courses" 
Dim A As Variant 
Dim i As Integer 
For i = 1 To 2 
For Each A In [Test!B6:B110] 
If A.Value = B(i) Then 
Range(A.Cells(1, 2), A.Cells(1, 9)).Copy 
Sheets(B(i)).Range("B5").PasteSpecial Paste:=xlPasteValues 
End If 
Next 
Next 
End Sub
pourquoi ?????


Merci de votre aide !!