Bonjour,

Là je sèche sur une macro qui me semble compliquée
J'ai un classeur contenant des données dans deux colonnes (sauf sur la première et dernière ligne de chacune des colonnes ).
Dans la première colonne il y a des N° d'agences et dans la seconde colonne un chiffre correspondant à des sinistres comme ceci :
colonne A colonne B
0102 12
0102 105
0305 8
1512 23
etc.. etc...


Dans un second classeur, j'ai des onglets qui correspondent à certaines agences.

Je souhaiterais (si c'est possible) faire une boucle pour que cela ajoute les données du premier classeur dans l'onglet respectif

Et en plus à un endroit bien définit (par exemple en M2 et N2)

J'ai commencé à écrire le code, mais là, mon cerveau bloque sur la logique à adopter et la méthode à mettre en place

voici où j'en suis... (auriez vous des idées ? des remarques ? suis je mal embarqué ? )

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub ajoutsinistreonglets()
 
'ajout du nombre total de sinistres dans les onglets respectifs
 
 
Dim wbk As Workbook
Dim cel As Integer
Dim wk As Workbook
Dim Indic As Integer
Dim monOnglet As Sheets
Dim lign As Long
 
 
 
Set wk = ThisWorkbook
 
Classeur = Application.GetOpenFilename("Classeurs Excel, *.xls")
Set wbk = Workbooks.Open(Classeur)
 
wk.Activate
cel = Range("A65000").End(xlUp).Row
Indic = 2
 
 
 
While Indic <= cel
vall = Sheets("NBRAGC").Range("A" & Indic)
 
For Each monOnglet In wbk.Sheets
If vall = Sheets(wbk) Then
wk.Activate
vall(lign).Copy
wbk.Activate
 
 
End If
 
 
 
End Sub

Merci de votre aide ou de vos conseils