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

Rechercher des sujets similaires à "boucles next simultanees onglets"