Boucles FOR NEXT Simultanées sur plusieurs onglets
Bonjour à tous
J'ai besoin d'aide sur une macro qui fonctionne
J'ai 25 boucles For Next exactement les même mais pour 25 onglets
Le soucis, c'est qu'elles s'appliquent les unes après les autres, du coup le temps de traitement est très long (env 50min)
Je voudrais les faire tourner en même temps
Par avance, Merci à tous
Mon code :
Sub Macro_Cables()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
Dim Ws As Worksheet
Dim Start As Single
Start = Timer
Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll 'Actualiser le classeur
For Each Ws In Worksheets
If Left(Ws.Name, 12) = "exportcables" Then Ws.Delete
Next Ws
For Each Ws In Worksheets
If Ws.Name Like "export cable*" Then
Ws.Name = "exportcables" & "_" & Format(Now, "dd-mm-yyyy")
Exit For
End If
Next Ws
With Sheets("exportcables" & "_" & Format(Now, "dd-mm-yyyy")) 'prend en compte l'onglet "export"
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
Range("A1").Value = "Code Cable"
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("TR01").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("TR01").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("TR03").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("TR03").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S01").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S01").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S02").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S02").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S03").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S03").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S04").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S04").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S05").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S05").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S06").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S06").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S07").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S07").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S08").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S08").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S09").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T001S09").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S01").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S01").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S02").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S02").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S03").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S03").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S04").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S04").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S05").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S05").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S06").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S06").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S07").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S07").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S08").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S08").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S09").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S09").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S10").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S10").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S11").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S11").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S12").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S12").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S13").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S13").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
'boucle sur toutes les cellules éditées cel de la colonne A (en partant de la ligne 1)
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S14").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("T003S14").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "AVANT"
Application.ScreenUpdating = True
MsgBox "durée: " & Timer - Start & " secondes"
End Sub
Bonjour Galoulozere et bienvenu, bonjour le forum,
Ton petit code sans balises (</>) et surtout sans identations le rend imbuvable. Je doute que obtiennes de l'aide.
C'est vrai que j'ai pas été très malin là
En fait c'est toujours le même code qui tourne 25 fois, donc je peux en mettre un seul.
Seul le nom de l'onglet change, ici "TR01"
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("TR01").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe l'occurrence exacte, place dals la colonne N de cel la valeur recherchée
If Not r Is Nothing Then r.Offset(-1, 0).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("TR01").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 14).Value = r.Offset(3, 0).Value
If Not r Is Nothing Then cel.Offset(0, 15).Value = r.Offset(-2, 0).Value
If Not r Is Nothing Then cel.Offset(0, 16).Value = r.Offset(4, 0).Value
If Not r Is Nothing Then cel.Offset(0, 17).Value = r.Offset(5, 0).Value
If Not r Is Nothing Then cel.Offset(0, 18).Value = r.Offset(6, 0).Value
Next cel 'prochaine cellule de la boucle
For Each cel In .Range("A1:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
'définit la recherche r (recherche la valeur de la cellule en partie dans la colonne A de l'onglet "SYNOPTIQUE")
Set r = Sheets("SECTIONS").Columns().Find(cel.Value, lookat:=xlWhole)
'si il existe au moins une occurrence trouvée, place dals la colonne I de cel la valeur de la colonne C de r
If Not r Is Nothing Then cel.Offset(0, 13).Value = r.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle