Option explicit Private Sheetcible As Worksheet = Sheets("Feuil1") ' feuille destination Private Shrrtsource As Worksheet = Sheets("BD_TELEINFO") ' feuille origine Private Sub Valider5_Click() Dim Ligcible As Integer, Ligsource as integer Ligsource = 170 ' première ligne source Ligcible = Sheets("Feuil1").Range("G10000").End(xlUp).Row ' première ligne destination For i = 0 to 1 ' pour copier 2 lignes Ajout(Sheetsource , Sheetcible, Ligcible + i, Ligsource + i, poste) End Sub Private Sub Ajout(Source As Worksheet, Cible As Worksheet, Ligcible as integer, LigSource As Integer, poste) ' Pour copier une ligne de la feuille source vers la feuille cible Cible.Cells(Ligcible, 7) = poste.Value Cible.Cells(Ligcible, 8) = Source.Cells(ligSource, 8) Cible.Cells(Ligcible, 9) = Source.Cells(ligSource, 9) Cible.Cells(Ligcible, 10) = Source.Cells(ligSource, 10) Cible.Cells(Ligcible, 11) = SourceCible.Cells(ligSource, 11) Cible.Cells(Ligcible, 12) = SourceCible.Cells(ligSource, 12) Cible.Cells(Ligcible, 18) = Source.Cells(ligSource, 18) Cible.Cells(Ligcible, 19) = Source.Cells(ligSource, 19) End Sub
Option explicit Private Sheetcible As Worksheet Private Sheetsource As Worksheet Private Sub Valider5_Click() Dim Ligcible As Integer, Ligsource as integer Set Sheetcible = Sheets("Feuil1") Set Sheetsource = Sheets("BD_TELEINFO") Ligsource = 170 ' première ligne source Ligcible = Sheets("Feuil1").Range("G10000").End(xlUp).Row ' première ligne destination For i = 0 to 1 ' pour copier 2 lignes Ajout Sheetsource , Sheetcible, Ligcible + i, Ligsource + i, "Poste" Next nd Sub Private Sub Ajout(Source As Worksheet, Cible As Worksheet, LigneCible as Integer, LigneSource As Integer, poste as String) ' Pour copier une ligne de la feuille source vers la feuille cible Cible.Cells(LigneCible, 7) = poste Cible.Cells(LigneCible, 8) = Source.Cells(LigneSource, 8) Cible.Cells(LigneCible, 9) = Source.Cells(LigneSource, 9) Cible.Cells(Lignecible, 10) = Source.Cells(LigneSource, 10) Cible.Cells(LigneCible, 11) = Source.Cells(LigneSource, 11) Cible.Cells(LigneCible, 12) = Source.Cells(LigneSource, 12) Cible.Cells(LigneCible, 18) = Source.Cells(LigneSource, 18) Cible.Cells(LigneCible, 19) = Source.Cells(LigneSource, 19) End Sub
Option explicit Private Sheetcible As Worksheet Private Sheetsource As Worksheet Private Sub Valider5_Click() Dim Ligcible As Integer, Ligsource as integer, i as Integer Set Sheetcible = Sheets("Feuil1") Set Sheetsource = Sheets("BD_TELEINFO") Ligsource = 170 ' première ligne source Ligcible = 168 ' première ligne destination For i = 0 to 1 ' pour copier 2 lignes Ajout Sheetsource , Sheetcible, Ligcible + i, Ligsource + i, "Poste" Next nd Sub Private Sub Ajout(Source As Worksheet, Cible As Worksheet, LigneCible as Integer, LigneSource As Integer, poste as String) ' Pour copier une ligne de la feuille source vers la feuille cible Cible.Cells(LigneCible, 7) = poste Cible.Cells(LigneCible, 8) = Source.Cells(LigneSource, 8) Cible.Cells(LigneCible, 9) = Source.Cells(LigneSource, 9) Cible.Cells(Lignecible, 10) = Source.Cells(LigneSource, 10) Cible.Cells(LigneCible, 11) = Source.Cells(LigneSource, 11) Cible.Cells(LigneCible, 12) = Source.Cells(LigneSource, 12) Cible.Cells(LigneCible, 18) = Source.Cells(LigneSource, 18) Cible.Cells(LigneCible, 19) = Source.Cells(LigneSource, 19) End Sub
Private Sheetcible As Worksheet Private Sheetsource As Worksheet Private Sub Valider_Click() Dim Ligcible As Integer, Ligsource As Integer, i As Integer Set Sheetcible = Sheets("Feuil1") Set Sheetsource = Sheets("BD_TELEINFO") Ligsource = 170 ' première ligne source Ligcible = 168 ' première ligne destination For i = 0 To 1 ' pour copier 2 lignes Ajout Sheetsource, Sheetcible, Ligcible + i, Ligsource + i, "Poste" Next End Sub Private Sub Ajout(Source As Worksheet, Cible As Worksheet, LigneCible As Integer, LigneSource As Integer, poste As String) ' Pour copier une ligne de la feuille source vers la feuille cible Dim j As Integer Cible.Cells(LigneCible, 7) = poste ' copie colonne 7 For j = 8 To 12 ' copie colonnes 8 à 12 Cible.Cells(LigneCible, j) = Source.Cells(LigneSource, j) Next ' copie les colonnes 18 et 19 Cible.Cells(LigneCible, 18) = Source.Cells(LigneSource, 18) Cible.Cells(LigneCible, 19) = Source.Cells(LigneSource, 19) End Sub
Modifié le 23 juil. 2018 à 14:50
Private Sub Valider5_Click()
If (TextBox5.Value = "") Then
Else
Dim lig168, j As Integer
comb = TextBox5.Value
For i = 1 To comb
lig168 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig168 = lig168 + 1
Sheets("Feuil1").Cells(lig168, 7) = poste.Value
Sheets("Feuil1").Cells(lig168, 8) = Sheets("BD_TELEINFO").Cells(170, 8)
Sheets("Feuil1").Cells(lig168, 9) = Sheets("BD_TELEINFO").Cells(170, 9)
Sheets("Feuil1").Cells(lig168, 10) = Sheets("BD_TELEINFO").Cells(170, 10)
Sheets("Feuil1").Cells(lig168, 11) = Sheets("BD_TELEINFO").Cells(170, 11)
Sheets("Feuil1").Cells(lig168, 12) = Sheets("BD_TELEINFO").Cells(170, 12)
Sheets("Feuil1").Cells(lig168, 18) = Sheets("BD_TELEINFO").Cells(170, 18)
Sheets("Feuil1").Cells(lig168, 19) = Sheets("BD_TELEINFO").Cells(170, 19)
lig169 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig169 = lig169 + 1
Sheets("Feuil1").Cells(lig169, 7) = poste.Value
Sheets("Feuil1").Cells(lig169, 8) = Sheets("BD_TELEINFO").Cells(171, 8)
Sheets("Feuil1").Cells(lig169, 9) = Sheets("BD_TELEINFO").Cells(171, 9)
Sheets("Feuil1").Cells(lig169, 10) = Sheets("BD_TELEINFO").Cells(171, 10)
Sheets("Feuil1").Cells(lig169, 11) = Sheets("BD_TELEINFO").Cells(171, 11)
Sheets("Feuil1").Cells(lig169, 12) = Sheets("BD_TELEINFO").Cells(171, 12)
Sheets("Feuil1").Cells(lig169, 18) = Sheets("BD_TELEINFO").Cells(171, 18)
If (Sheets("BD_TELEINFO").Cells(169, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(171, 19) = "X") Then
Sheets("Feuil1").Cells(lig169, 19) = 1038 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig170 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig170 = lig170 + 1
Sheets("Feuil1").Cells(lig170, 7) = poste.Value
Sheets("Feuil1").Cells(lig170, 8) = Sheets("BD_TELEINFO").Cells(172, 8)
Sheets("Feuil1").Cells(lig170, 9) = Sheets("BD_TELEINFO").Cells(172, 9)
Sheets("Feuil1").Cells(lig170, 10) = Sheets("BD_TELEINFO").Cells(172, 10)
Sheets("Feuil1").Cells(lig170, 11) = Sheets("BD_TELEINFO").Cells(172, 11)
Sheets("Feuil1").Cells(lig170, 12) = Sheets("BD_TELEINFO").Cells(172, 12)
Sheets("Feuil1").Cells(lig170, 18) = Sheets("BD_TELEINFO").Cells(172, 18)
'Sheets("Feuil1").Cells(lig170, 19) = Sheets("BD_TELEINFO").Cells(172, 19)
lig171 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig171 = lig171 + 1
Sheets("Feuil1").Cells(lig171, 7) = poste.Value
Sheets("Feuil1").Cells(lig171, 8) = Sheets("BD_TELEINFO").Cells(173, 8)
Sheets("Feuil1").Cells(lig171, 9) = Sheets("BD_TELEINFO").Cells(173, 9)
Sheets("Feuil1").Cells(lig171, 10) = Sheets("BD_TELEINFO").Cells(173, 10)
Sheets("Feuil1").Cells(lig171, 11) = Sheets("BD_TELEINFO").Cells(173, 11)
Sheets("Feuil1").Cells(lig171, 12) = Sheets("BD_TELEINFO").Cells(173, 12)
Sheets("Feuil1").Cells(lig171, 18) = Sheets("BD_TELEINFO").Cells(173, 18)
Sheets("Feuil1").Cells(lig171, 19) = Sheets("BD_TELEINFO").Cells(173, 19)
lig172 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig172 = lig172 + 1
Sheets("Feuil1").Cells(lig172, 7) = poste.Value
Sheets("Feuil1").Cells(lig172, 8) = Sheets("BD_TELEINFO").Cells(174, 8)
Sheets("Feuil1").Cells(lig172, 9) = Sheets("BD_TELEINFO").Cells(174, 9)
Sheets("Feuil1").Cells(lig172, 10) = Sheets("BD_TELEINFO").Cells(174, 10)
Sheets("Feuil1").Cells(lig172, 11) = Sheets("BD_TELEINFO").Cells(174, 11)
Sheets("Feuil1").Cells(lig172, 12) = Sheets("BD_TELEINFO").Cells(174, 12)
Sheets("Feuil1").Cells(lig172, 18) = Sheets("BD_TELEINFO").Cells(174, 18)
Sheets("Feuil1").Cells(lig172, 19) = Sheets("BD_TELEINFO").Cells(174, 19)
lig173 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig173 = lig173 + 1
Sheets("Feuil1").Cells(lig173, 7) = poste.Value
Sheets("Feuil1").Cells(lig173, 8) = Sheets("BD_TELEINFO").Cells(175, 8)
Sheets("Feuil1").Cells(lig173, 9) = Sheets("BD_TELEINFO").Cells(175, 9)
Sheets("Feuil1").Cells(lig173, 10) = Sheets("BD_TELEINFO").Cells(175, 10)
Sheets("Feuil1").Cells(lig173, 11) = Sheets("BD_TELEINFO").Cells(175, 11)
Sheets("Feuil1").Cells(lig173, 12) = Sheets("BD_TELEINFO").Cells(175, 12)
Sheets("Feuil1").Cells(lig173, 18) = Sheets("BD_TELEINFO").Cells(175, 18)
Sheets("Feuil1").Cells(lig173, 19) = Sheets("BD_TELEINFO").Cells(175, 19)
lig174 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig174 = lig174 + 1
Sheets("Feuil1").Cells(lig174, 7) = poste.Value
Sheets("Feuil1").Cells(lig174, 8) = Sheets("BD_TELEINFO").Cells(176, 8)
Sheets("Feuil1").Cells(lig174, 9) = Sheets("BD_TELEINFO").Cells(176, 9)
Sheets("Feuil1").Cells(lig174, 10) = Sheets("BD_TELEINFO").Cells(176, 10)
Sheets("Feuil1").Cells(lig174, 11) = Sheets("BD_TELEINFO").Cells(176, 11)
Sheets("Feuil1").Cells(lig174, 12) = Sheets("BD_TELEINFO").Cells(176, 12)
Sheets("Feuil1").Cells(lig174, 18) = Sheets("BD_TELEINFO").Cells(176, 18)
Sheets("Feuil1").Cells(lig174, 19) = Sheets("BD_TELEINFO").Cells(176, 194)
lig175 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig175 = lig175 + 1
Sheets("Feuil1").Cells(lig175, 7) = poste.Value
Sheets("Feuil1").Cells(lig175, 8) = Sheets("BD_TELEINFO").Cells(177, 8)
Sheets("Feuil1").Cells(lig175, 9) = Sheets("BD_TELEINFO").Cells(177, 9)
Sheets("Feuil1").Cells(lig175, 10) = Sheets("BD_TELEINFO").Cells(177, 10)
Sheets("Feuil1").Cells(lig175, 11) = Sheets("BD_TELEINFO").Cells(177, 11)
Sheets("Feuil1").Cells(lig175, 12) = Sheets("BD_TELEINFO").Cells(177, 12)
Sheets("Feuil1").Cells(lig175, 18) = Sheets("BD_TELEINFO").Cells(177, 18)
Sheets("Feuil1").Cells(lig175, 19) = Sheets("BD_TELEINFO").Cells(177, 19)
lig176 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig176 = lig176 + 1
Sheets("Feuil1").Cells(lig176, 7) = poste.Value
Sheets("Feuil1").Cells(lig176, 8) = Sheets("BD_TELEINFO").Cells(178, 8)
Sheets("Feuil1").Cells(lig176, 9) = Sheets("BD_TELEINFO").Cells(178, 9)
Sheets("Feuil1").Cells(lig176, 10) = Sheets("BD_TELEINFO").Cells(178, 10)
Sheets("Feuil1").Cells(lig176, 11) = Sheets("BD_TELEINFO").Cells(178, 11)
Sheets("Feuil1").Cells(lig176, 12) = Sheets("BD_TELEINFO").Cells(178, 12)
Sheets("Feuil1").Cells(lig176, 18) = Sheets("BD_TELEINFO").Cells(178, 18)
Sheets("Feuil1").Cells(lig176, 19) = Sheets("BD_TELEINFO").Cells(178, 19)
lig177 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig177 = lig177 + 1
Sheets("Feuil1").Cells(lig177, 7) = poste.Value
Sheets("Feuil1").Cells(lig177, 8) = Sheets("BD_TELEINFO").Cells(179, 8)
Sheets("Feuil1").Cells(lig177, 9) = Sheets("BD_TELEINFO").Cells(179, 9)
Sheets("Feuil1").Cells(lig177, 10) = Sheets("BD_TELEINFO").Cells(179, 10)
Sheets("Feuil1").Cells(lig177, 11) = Sheets("BD_TELEINFO").Cells(179, 11)
Sheets("Feuil1").Cells(lig177, 12) = Sheets("BD_TELEINFO").Cells(179, 12)
Sheets("Feuil1").Cells(lig177, 18) = Sheets("BD_TELEINFO").Cells(179, 18)
Sheets("Feuil1").Cells(lig177, 19) = Sheets("BD_TELEINFO").Cells(179, 19)
lig178 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig178 = lig178 + 1
Sheets("Feuil1").Cells(lig178, 7) = poste.Value
Sheets("Feuil1").Cells(lig178, 8) = Sheets("BD_TELEINFO").Cells(180, 8)
Sheets("Feuil1").Cells(lig178, 9) = Sheets("BD_TELEINFO").Cells(180, 9)
Sheets("Feuil1").Cells(lig178, 10) = Sheets("BD_TELEINFO").Cells(180, 10)
Sheets("Feuil1").Cells(lig178, 11) = Sheets("BD_TELEINFO").Cells(180, 11)
Sheets("Feuil1").Cells(lig178, 12) = Sheets("BD_TELEINFO").Cells(180, 12)
Sheets("Feuil1").Cells(lig178, 18) = Sheets("BD_TELEINFO").Cells(180, 18)
Sheets("Feuil1").Cells(lig178, 19) = Sheets("BD_TELEINFO").Cells(180, 19)
lig179 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig179 = lig179 + 1
Sheets("Feuil1").Cells(lig179, 7) = poste.Value
Sheets("Feuil1").Cells(lig179, 8) = Sheets("BD_TELEINFO").Cells(181, 8)
Sheets("Feuil1").Cells(lig179, 9) = Sheets("BD_TELEINFO").Cells(181, 9)
Sheets("Feuil1").Cells(lig179, 10) = Sheets("BD_TELEINFO").Cells(181, 10)
Sheets("Feuil1").Cells(lig179, 11) = Sheets("BD_TELEINFO").Cells(181, 11)
Sheets("Feuil1").Cells(lig179, 12) = Sheets("BD_TELEINFO").Cells(181, 12)
Sheets("Feuil1").Cells(lig179, 18) = Sheets("BD_TELEINFO").Cells(181, 18)
Sheets("Feuil1").Cells(lig179, 19) = Sheets("BD_TELEINFO").Cells(181, 19)
lig180 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig180 = lig180 + 1
Sheets("Feuil1").Cells(lig180, 7) = poste.Value
Sheets("Feuil1").Cells(lig180, 8) = Sheets("BD_TELEINFO").Cells(182, 8)
Sheets("Feuil1").Cells(lig180, 9) = Sheets("BD_TELEINFO").Cells(182, 9)
Sheets("Feuil1").Cells(lig180, 10) = Sheets("BD_TELEINFO").Cells(182, 10)
Sheets("Feuil1").Cells(lig180, 11) = Sheets("BD_TELEINFO").Cells(182, 11)
Sheets("Feuil1").Cells(lig180, 12) = Sheets("BD_TELEINFO").Cells(182, 12)
Sheets("Feuil1").Cells(lig180, 18) = Sheets("BD_TELEINFO").Cells(182, 18)
Sheets("Feuil1").Cells(lig180, 19) = Sheets("BD_TELEINFO").Cells(182, 19)
lig181 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig181 = lig181 + 1
Sheets("Feuil1").Cells(lig181, 7) = poste.Value
Sheets("Feuil1").Cells(lig181, 8) = Sheets("BD_TELEINFO").Cells(183, 8)
Sheets("Feuil1").Cells(lig181, 9) = Sheets("BD_TELEINFO").Cells(183, 9)
Sheets("Feuil1").Cells(lig181, 10) = Sheets("BD_TELEINFO").Cells(183, 10)
Sheets("Feuil1").Cells(lig181, 11) = Sheets("BD_TELEINFO").Cells(183, 11)
Sheets("Feuil1").Cells(lig181, 12) = Sheets("BD_TELEINFO").Cells(183, 12)
Sheets("Feuil1").Cells(lig181, 18) = Sheets("BD_TELEINFO").Cells(183, 18)
Sheets("Feuil1").Cells(lig181, 19) = Sheets("BD_TELEINFO").Cells(183, 19)
lig182 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig182 = lig182 + 1
Sheets("Feuil1").Cells(lig182, 7) = poste.Value
Sheets("Feuil1").Cells(lig182, 8) = Sheets("BD_TELEINFO").Cells(184, 8)
Sheets("Feuil1").Cells(lig182, 9) = Sheets("BD_TELEINFO").Cells(184, 9)
Sheets("Feuil1").Cells(lig182, 10) = Sheets("BD_TELEINFO").Cells(184, 10)
Sheets("Feuil1").Cells(lig182, 11) = Sheets("BD_TELEINFO").Cells(184, 11)
Sheets("Feuil1").Cells(lig182, 12) = Sheets("BD_TELEINFO").Cells(184, 12)
Sheets("Feuil1").Cells(lig182, 18) = Sheets("BD_TELEINFO").Cells(184, 18)
Sheets("Feuil1").Cells(lig182, 19) = Sheets("BD_TELEINFO").Cells(184, 19)
lig183 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig183 = lig183 + 1
Sheets("Feuil1").Cells(lig183, 7) = poste.Value
Sheets("Feuil1").Cells(lig183, 8) = Sheets("BD_TELEINFO").Cells(185, 8)
Sheets("Feuil1").Cells(lig183, 9) = Sheets("BD_TELEINFO").Cells(185, 9)
Sheets("Feuil1").Cells(lig183, 10) = Sheets("BD_TELEINFO").Cells(185, 10)
Sheets("Feuil1").Cells(lig183, 11) = Sheets("BD_TELEINFO").Cells(185, 11)
Sheets("Feuil1").Cells(lig183, 12) = Sheets("BD_TELEINFO").Cells(185, 12)
Sheets("Feuil1").Cells(lig183, 18) = Sheets("BD_TELEINFO").Cells(185, 18)
Sheets("Feuil1").Cells(lig183, 19) = Sheets("BD_TELEINFO").Cells(185, 19)
lig184 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig184 = lig184 + 1
Sheets("Feuil1").Cells(lig184, 7) = poste.Value
Sheets("Feuil1").Cells(lig184, 8) = Sheets("BD_TELEINFO").Cells(186, 8)
Sheets("Feuil1").Cells(lig184, 9) = Sheets("BD_TELEINFO").Cells(186, 9)
Sheets("Feuil1").Cells(lig184, 10) = Sheets("BD_TELEINFO").Cells(186, 10)
Sheets("Feuil1").Cells(lig184, 11) = Sheets("BD_TELEINFO").Cells(186, 11)
Sheets("Feuil1").Cells(lig184, 12) = Sheets("BD_TELEINFO").Cells(186, 12)
Sheets("Feuil1").Cells(lig184, 18) = Sheets("BD_TELEINFO").Cells(186, 18)
Sheets("Feuil1").Cells(lig184, 19) = Sheets("BD_TELEINFO").Cells(186, 19)
lig185 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig185 = lig185 + 1
Sheets("Feuil1").Cells(lig185, 7) = poste.Value
Sheets("Feuil1").Cells(lig185, 8) = Sheets("BD_TELEINFO").Cells(187, 8)
Sheets("Feuil1").Cells(lig185, 9) = Sheets("BD_TELEINFO").Cells(187, 9)
Sheets("Feuil1").Cells(lig185, 10) = Sheets("BD_TELEINFO").Cells(187, 10)
Sheets("Feuil1").Cells(lig185, 11) = Sheets("BD_TELEINFO").Cells(187, 11)
Sheets("Feuil1").Cells(lig185, 12) = Sheets("BD_TELEINFO").Cells(187, 12)
Sheets("Feuil1").Cells(lig185, 18) = Sheets("BD_TELEINFO").Cells(187, 18)
Sheets("Feuil1").Cells(lig185, 19) = Sheets("BD_TELEINFO").Cells(187, 19)
lig186 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig186 = lig186 + 1
Sheets("Feuil1").Cells(lig186, 7) = poste.Value
Sheets("Feuil1").Cells(lig186, 8) = Sheets("BD_TELEINFO").Cells(188, 8)
Sheets("Feuil1").Cells(lig186, 9) = Sheets("BD_TELEINFO").Cells(188, 9)
Sheets("Feuil1").Cells(lig186, 10) = Sheets("BD_TELEINFO").Cells(188, 10)
Sheets("Feuil1").Cells(lig186, 11) = Sheets("BD_TELEINFO").Cells(188, 11)
Sheets("Feuil1").Cells(lig186, 12) = Sheets("BD_TELEINFO").Cells(188, 12)
Sheets("Feuil1").Cells(lig186, 18) = Sheets("BD_TELEINFO").Cells(188, 18)
Sheets("Feuil1").Cells(lig186, 19) = Sheets("BD_TELEINFO").Cells(188, 19)
lig187 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig187 = lig187 + 1
Sheets("Feuil1").Cells(lig187, 7) = poste.Value
Sheets("Feuil1").Cells(lig187, 8) = Sheets("BD_TELEINFO").Cells(189, 8)
Sheets("Feuil1").Cells(lig187, 9) = Sheets("BD_TELEINFO").Cells(189, 9)
Sheets("Feuil1").Cells(lig187, 10) = Sheets("BD_TELEINFO").Cells(189, 10)
Sheets("Feuil1").Cells(lig187, 11) = Sheets("BD_TELEINFO").Cells(189, 11)
Sheets("Feuil1").Cells(lig187, 12) = Sheets("BD_TELEINFO").Cells(189, 12)
Sheets("Feuil1").Cells(lig187, 18) = Sheets("BD_TELEINFO").Cells(189, 18)
Sheets("Feuil1").Cells(lig187, 19) = Sheets("BD_TELEINFO").Cells(189, 19)
lig188 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig188 = lig188 + 1
Sheets("Feuil1").Cells(lig188, 7) = poste.Value
Sheets("Feuil1").Cells(lig188, 8) = Sheets("BD_TELEINFO").Cells(190, 8)
Sheets("Feuil1").Cells(lig188, 9) = Sheets("BD_TELEINFO").Cells(190, 9)
Sheets("Feuil1").Cells(lig188, 10) = Sheets("BD_TELEINFO").Cells(190, 10)
Sheets("Feuil1").Cells(lig188, 11) = Sheets("BD_TELEINFO").Cells(190, 11)
Sheets("Feuil1").Cells(lig188, 12) = Sheets("BD_TELEINFO").Cells(190, 12)
Sheets("Feuil1").Cells(lig188, 18) = Sheets("BD_TELEINFO").Cells(190, 18)
If (Sheets("BD_TELEINFO").Cells(188, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(190, 19) = "X") Then
Sheets("Feuil1").Cells(lig188, 19) = 1039 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig189 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig189 = lig189 + 1
Sheets("Feuil1").Cells(lig189, 7) = poste.Value
Sheets("Feuil1").Cells(lig189, 8) = Sheets("BD_TELEINFO").Cells(191, 8)
Sheets("Feuil1").Cells(lig189, 9) = Sheets("BD_TELEINFO").Cells(191, 9)
Sheets("Feuil1").Cells(lig189, 10) = Sheets("BD_TELEINFO").Cells(191, 10)
Sheets("Feuil1").Cells(lig189, 11) = Sheets("BD_TELEINFO").Cells(191, 11)
Sheets("Feuil1").Cells(lig189, 12) = Sheets("BD_TELEINFO").Cells(191, 12)
Sheets("Feuil1").Cells(lig189, 18) = Sheets("BD_TELEINFO").Cells(191, 18)
Sheets("Feuil1").Cells(lig189, 19) = Sheets("BD_TELEINFO").Cells(191, 19)
lig190 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig190 = lig190 + 1
Sheets("Feuil1").Cells(lig190, 7) = poste.Value
Sheets("Feuil1").Cells(lig190, 8) = Sheets("BD_TELEINFO").Cells(192, 8)
Sheets("Feuil1").Cells(lig190, 9) = Sheets("BD_TELEINFO").Cells(192, 9)
Sheets("Feuil1").Cells(lig190, 10) = Sheets("BD_TELEINFO").Cells(192, 10)
Sheets("Feuil1").Cells(lig190, 11) = Sheets("BD_TELEINFO").Cells(192, 11)
Sheets("Feuil1").Cells(lig190, 12) = Sheets("BD_TELEINFO").Cells(192, 12)
Sheets("Feuil1").Cells(lig190, 18) = Sheets("BD_TELEINFO").Cells(192, 18)
Sheets("Feuil1").Cells(lig190, 19) = Sheets("BD_TELEINFO").Cells(192, 19)
lig191 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig191 = lig191 + 1
Sheets("Feuil1").Cells(lig191, 7) = poste.Value
Sheets("Feuil1").Cells(lig191, 8) = Sheets("BD_TELEINFO").Cells(193, 8)
Sheets("Feuil1").Cells(lig191, 9) = Sheets("BD_TELEINFO").Cells(193, 9)
Sheets("Feuil1").Cells(lig191, 10) = Sheets("BD_TELEINFO").Cells(193, 10)
Sheets("Feuil1").Cells(lig191, 11) = Sheets("BD_TELEINFO").Cells(193, 11)
Sheets("Feuil1").Cells(lig191, 12) = Sheets("BD_TELEINFO").Cells(193, 12)
Sheets("Feuil1").Cells(lig191, 18) = Sheets("BD_TELEINFO").Cells(193, 18)
Sheets("Feuil1").Cells(lig191, 19) = Sheets("BD_TELEINFO").Cells(193, 19)
lig192 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig192 = lig192 + 1
Sheets("Feuil1").Cells(lig192, 7) = poste.Value
Sheets("Feuil1").Cells(lig192, 8) = Sheets("BD_TELEINFO").Cells(194, 8)
Sheets("Feuil1").Cells(lig192, 9) = Sheets("BD_TELEINFO").Cells(194, 9)
Sheets("Feuil1").Cells(lig192, 10) = Sheets("BD_TELEINFO").Cells(194, 10)
Sheets("Feuil1").Cells(lig192, 11) = Sheets("BD_TELEINFO").Cells(194, 11)
Sheets("Feuil1").Cells(lig192, 12) = Sheets("BD_TELEINFO").Cells(194, 12)
Sheets("Feuil1").Cells(lig192, 18) = Sheets("BD_TELEINFO").Cells(194, 18)
If (Sheets("BD_TELEINFO").Cells(192, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(194, 19) = "X") Then
Sheets("Feuil1").Cells(lig192, 19) = 1040 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig193 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig193 = lig193 + 1
Sheets("Feuil1").Cells(lig193, 7) = poste.Value
Sheets("Feuil1").Cells(lig193, 8) = Sheets("BD_TELEINFO").Cells(195, 8)
Sheets("Feuil1").Cells(lig193, 9) = Sheets("BD_TELEINFO").Cells(195, 9)
Sheets("Feuil1").Cells(lig193, 10) = Sheets("BD_TELEINFO").Cells(195, 10)
Sheets("Feuil1").Cells(lig193, 11) = Sheets("BD_TELEINFO").Cells(195, 11)
Sheets("Feuil1").Cells(lig193, 12) = Sheets("BD_TELEINFO").Cells(195, 12)
Sheets("Feuil1").Cells(lig193, 18) = Sheets("BD_TELEINFO").Cells(195, 18)
If (Sheets("BD_TELEINFO").Cells(193, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(195, 19) = "X") Then
Sheets("Feuil1").Cells(lig193, 19) = 1041 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig194 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig194 = lig194 + 1
Sheets("Feuil1").Cells(lig194, 7) = poste.Value
Sheets("Feuil1").Cells(lig194, 8) = Sheets("BD_TELEINFO").Cells(196, 8)
Sheets("Feuil1").Cells(lig194, 9) = Sheets("BD_TELEINFO").Cells(196, 9)
Sheets("Feuil1").Cells(lig194, 10) = Sheets("BD_TELEINFO").Cells(196, 10)
Sheets("Feuil1").Cells(lig194, 11) = Sheets("BD_TELEINFO").Cells(196, 11)
Sheets("Feuil1").Cells(lig194, 12) = Sheets("BD_TELEINFO").Cells(196, 12)
Sheets("Feuil1").Cells(lig194, 18) = Sheets("BD_TELEINFO").Cells(196, 18)
Sheets("Feuil1").Cells(lig194, 19) = Sheets("BD_TELEINFO").Cells(196, 19)
lig195 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig195 = lig195 + 1
Sheets("Feuil1").Cells(lig195, 7) = poste.Value
Sheets("Feuil1").Cells(lig195, 8) = Sheets("BD_TELEINFO").Cells(197, 8)
Sheets("Feuil1").Cells(lig195, 9) = Sheets("BD_TELEINFO").Cells(197, 9)
Sheets("Feuil1").Cells(lig195, 10) = Sheets("BD_TELEINFO").Cells(197, 10)
Sheets("Feuil1").Cells(lig195, 11) = Sheets("BD_TELEINFO").Cells(197, 11)
Sheets("Feuil1").Cells(lig195, 12) = Sheets("BD_TELEINFO").Cells(197, 12)
Sheets("Feuil1").Cells(lig195, 18) = Sheets("BD_TELEINFO").Cells(197, 18)
If (Sheets("BD_TELEINFO").Cells(197, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(197, 19) = "X") Then
Sheets("Feuil1").Cells(lig195, 19) = 2 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig196 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig196 = lig196 + 1
Sheets("Feuil1").Cells(lig196, 7) = poste.Value
Sheets("Feuil1").Cells(lig196, 8) = Sheets("BD_TELEINFO").Cells(198, 8)
Sheets("Feuil1").Cells(lig196, 9) = Sheets("BD_TELEINFO").Cells(198, 9)
Sheets("Feuil1").Cells(lig196, 10) = Sheets("BD_TELEINFO").Cells(198, 10)
Sheets("Feuil1").Cells(lig196, 11) = Sheets("BD_TELEINFO").Cells(198, 11)
Sheets("Feuil1").Cells(lig196, 12) = Sheets("BD_TELEINFO").Cells(198, 12)
Sheets("Feuil1").Cells(lig196, 18) = Sheets("BD_TELEINFO").Cells(198, 18)
If (Sheets("BD_TELEINFO").Cells(198, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(198, 19) = "X") Then
Sheets("Feuil1").Cells(lig196, 19) = 3 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig197 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig197 = lig197 + 1
Sheets("Feuil1").Cells(lig197, 7) = poste.Value
Sheets("Feuil1").Cells(lig197, 8) = Sheets("BD_TELEINFO").Cells(199, 8)
Sheets("Feuil1").Cells(lig197, 9) = Sheets("BD_TELEINFO").Cells(199, 9)
Sheets("Feuil1").Cells(lig197, 10) = Sheets("BD_TELEINFO").Cells(199, 10)
Sheets("Feuil1").Cells(lig197, 11) = Sheets("BD_TELEINFO").Cells(199, 11)
Sheets("Feuil1").Cells(lig197, 12) = Sheets("BD_TELEINFO").Cells(199, 12)
Sheets("Feuil1").Cells(lig197, 18) = Sheets("BD_TELEINFO").Cells(199, 18)
If (Sheets("BD_TELEINFO").Cells(197, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(199, 19) = "X") Then
Sheets("Feuil1").Cells(lig197, 19) = 4 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig198 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig198 = lig198 + 1
Sheets("Feuil1").Cells(lig198, 7) = poste.Value
Sheets("Feuil1").Cells(lig198, 8) = Sheets("BD_TELEINFO").Cells(200, 8)
Sheets("Feuil1").Cells(lig198, 9) = Sheets("BD_TELEINFO").Cells(200, 9)
Sheets("Feuil1").Cells(lig198, 10) = Sheets("BD_TELEINFO").Cells(200, 10)
Sheets("Feuil1").Cells(lig198, 11) = Sheets("BD_TELEINFO").Cells(200, 11)
Sheets("Feuil1").Cells(lig198, 12) = Sheets("BD_TELEINFO").Cells(200, 12)
Sheets("Feuil1").Cells(lig198, 18) = Sheets("BD_TELEINFO").Cells(200, 18)
If (Sheets("BD_TELEINFO").Cells(198, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(200, 19) = "X") Then
Sheets("Feuil1").Cells(lig198, 19) = 5 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig199 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig199 = lig199 + 1
Sheets("Feuil1").Cells(lig199, 7) = poste.Value
Sheets("Feuil1").Cells(lig199, 8) = Sheets("BD_TELEINFO").Cells(201, 8)
Sheets("Feuil1").Cells(lig199, 9) = Sheets("BD_TELEINFO").Cells(201, 9)
Sheets("Feuil1").Cells(lig199, 10) = Sheets("BD_TELEINFO").Cells(201, 10)
Sheets("Feuil1").Cells(lig199, 11) = Sheets("BD_TELEINFO").Cells(201, 11)
Sheets("Feuil1").Cells(lig199, 12) = Sheets("BD_TELEINFO").Cells(201, 12)
Sheets("Feuil1").Cells(lig199, 18) = Sheets("BD_TELEINFO").Cells(201, 18)
If (Sheets("BD_TELEINFO").Cells(199, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(201, 19) = "X") Then
Sheets("Feuil1").Cells(lig199, 19) = 6 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig200 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig200 = lig200 + 1
Sheets("Feuil1").Cells(lig200, 7) = poste.Value
Sheets("Feuil1").Cells(lig200, 8) = Sheets("BD_TELEINFO").Cells(202, 8)
Sheets("Feuil1").Cells(lig200, 9) = Sheets("BD_TELEINFO").Cells(202, 9)
Sheets("Feuil1").Cells(lig200, 10) = Sheets("BD_TELEINFO").Cells(202, 10)
Sheets("Feuil1").Cells(lig200, 11) = Sheets("BD_TELEINFO").Cells(202, 11)
Sheets("Feuil1").Cells(lig200, 12) = Sheets("BD_TELEINFO").Cells(202, 12)
Sheets("Feuil1").Cells(lig200, 18) = Sheets("BD_TELEINFO").Cells(202, 18)
If (Sheets("BD_TELEINFO").Cells(200, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(202, 19) = "X") Then
Sheets("Feuil1").Cells(lig200, 19) = 7 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig201 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig201 = lig201 + 1
Sheets("Feuil1").Cells(lig201, 7) = poste.Value
Sheets("Feuil1").Cells(lig201, 8) = Sheets("BD_TELEINFO").Cells(203, 8)
Sheets("Feuil1").Cells(lig201, 9) = Sheets("BD_TELEINFO").Cells(203, 9)
Sheets("Feuil1").Cells(lig201, 10) = Sheets("BD_TELEINFO").Cells(203, 10)
Sheets("Feuil1").Cells(lig201, 11) = Sheets("BD_TELEINFO").Cells(203, 11)
Sheets("Feuil1").Cells(lig201, 12) = Sheets("BD_TELEINFO").Cells(203, 12)
Sheets("Feuil1").Cells(lig201, 18) = Sheets("BD_TELEINFO").Cells(203, 18)
If (Sheets("BD_TELEINFO").Cells(203, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(203, 19) = "X") Then
Sheets("Feuil1").Cells(lig201, 19) = 1042 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig202 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig202 = lig202 + 1
Sheets("Feuil1").Cells(lig202, 7) = poste.Value
Sheets("Feuil1").Cells(lig202, 8) = Sheets("BD_TELEINFO").Cells(204, 8)
Sheets("Feuil1").Cells(lig202, 9) = Sheets("BD_TELEINFO").Cells(204, 9)
Sheets("Feuil1").Cells(lig202, 10) = Sheets("BD_TELEINFO").Cells(204, 10)
Sheets("Feuil1").Cells(lig202, 11) = Sheets("BD_TELEINFO").Cells(204, 11)
Sheets("Feuil1").Cells(lig202, 12) = Sheets("BD_TELEINFO").Cells(204, 12)
Sheets("Feuil1").Cells(lig202, 18) = Sheets("BD_TELEINFO").Cells(204, 18)
If (Sheets("BD_TELEINFO").Cells(204, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(204, 19) = "X") Then
Sheets("Feuil1").Cells(lig202, 19) = 1043 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig203 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig203 = lig203 + 1
Sheets("Feuil1").Cells(lig203, 7) = poste.Value
Sheets("Feuil1").Cells(lig203, 8) = Sheets("BD_TELEINFO").Cells(205, 8)
Sheets("Feuil1").Cells(lig203, 9) = Sheets("BD_TELEINFO").Cells(205, 9)
Sheets("Feuil1").Cells(lig203, 10) = Sheets("BD_TELEINFO").Cells(205, 10)
Sheets("Feuil1").Cells(lig203, 11) = Sheets("BD_TELEINFO").Cells(205, 11)
Sheets("Feuil1").Cells(lig203, 12) = Sheets("BD_TELEINFO").Cells(205, 12)
Sheets("Feuil1").Cells(lig203, 18) = Sheets("BD_TELEINFO").Cells(205, 18)
If (Sheets("BD_TELEINFO").Cells(203, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(205, 19) = "X") Then
Sheets("Feuil1").Cells(lig203, 19) = 1044 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig204 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig204 = lig204 + 1
Sheets("Feuil1").Cells(lig204, 7) = poste.Value
Sheets("Feuil1").Cells(lig204, 8) = Sheets("BD_TELEINFO").Cells(206, 8)
Sheets("Feuil1").Cells(lig204, 9) = Sheets("BD_TELEINFO").Cells(206, 9)
Sheets("Feuil1").Cells(lig204, 10) = Sheets("BD_TELEINFO").Cells(206, 10)
Sheets("Feuil1").Cells(lig204, 11) = Sheets("BD_TELEINFO").Cells(206, 11)
Sheets("Feuil1").Cells(lig204, 12) = Sheets("BD_TELEINFO").Cells(206, 12)
Sheets("Feuil1").Cells(lig204, 18) = Sheets("BD_TELEINFO").Cells(206, 18)
If (Sheets("BD_TELEINFO").Cells(204, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(206, 19) = "X") Then
Sheets("Feuil1").Cells(lig204, 19) = 1045 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig205 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig205 = lig205 + 1
Sheets("Feuil1").Cells(lig205, 7) = poste.Value
Sheets("Feuil1").Cells(lig205, 8) = Sheets("BD_TELEINFO").Cells(207, 8)
Sheets("Feuil1").Cells(lig205, 9) = Sheets("BD_TELEINFO").Cells(207, 9)
Sheets("Feuil1").Cells(lig205, 10) = Sheets("BD_TELEINFO").Cells(207, 10)
Sheets("Feuil1").Cells(lig205, 11) = Sheets("BD_TELEINFO").Cells(207, 11)
Sheets("Feuil1").Cells(lig205, 12) = Sheets("BD_TELEINFO").Cells(207, 12)
Sheets("Feuil1").Cells(lig205, 18) = Sheets("BD_TELEINFO").Cells(207, 18)
Sheets("Feuil1").Cells(lig205, 19) = Sheets("BD_TELEINFO").Cells(207, 19)
lig206 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig206 = lig206 + 1
Sheets("Feuil1").Cells(lig206, 7) = poste.Value
Sheets("Feuil1").Cells(lig206, 8) = Sheets("BD_TELEINFO").Cells(208, 8)
Sheets("Feuil1").Cells(lig206, 9) = Sheets("BD_TELEINFO").Cells(208, 9)
Sheets("Feuil1").Cells(lig206, 10) = Sheets("BD_TELEINFO").Cells(208, 10)
Sheets("Feuil1").Cells(lig206, 11) = Sheets("BD_TELEINFO").Cells(208, 11)
Sheets("Feuil1").Cells(lig206, 12) = Sheets("BD_TELEINFO").Cells(208, 12)
Sheets("Feuil1").Cells(lig206, 18) = Sheets("BD_TELEINFO").Cells(208, 18)
Sheets("Feuil1").Cells(lig206, 19) = Sheets("BD_TELEINFO").Cells(208, 19)
lig207 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig207 = lig207 + 1
Sheets("Feuil1").Cells(lig207, 7) = poste.Value
Sheets("Feuil1").Cells(lig207, 8) = Sheets("BD_TELEINFO").Cells(209, 8)
Sheets("Feuil1").Cells(lig207, 9) = Sheets("BD_TELEINFO").Cells(209, 9)
Sheets("Feuil1").Cells(lig207, 10) = Sheets("BD_TELEINFO").Cells(209, 10)
Sheets("Feuil1").Cells(lig207, 11) = Sheets("BD_TELEINFO").Cells(209, 11)
Sheets("Feuil1").Cells(lig207, 12) = Sheets("BD_TELEINFO").Cells(209, 12)
Sheets("Feuil1").Cells(lig207, 18) = Sheets("BD_TELEINFO").Cells(209, 18)
Sheets("Feuil1").Cells(lig207, 19) = Sheets("BD_TELEINFO").Cells(209, 19)
lig208 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig208 = lig208 + 1
Sheets("Feuil1").Cells(lig208, 7) = poste.Value
Sheets("Feuil1").Cells(lig208, 8) = Sheets("BD_TELEINFO").Cells(210, 8)
Sheets("Feuil1").Cells(lig208, 9) = Sheets("BD_TELEINFO").Cells(210, 9)
Sheets("Feuil1").Cells(lig208, 10) = Sheets("BD_TELEINFO").Cells(202, 10)
Sheets("Feuil1").Cells(lig208, 11) = Sheets("BD_TELEINFO").Cells(210, 11)
Sheets("Feuil1").Cells(lig208, 12) = Sheets("BD_TELEINFO").Cells(210, 12)
Sheets("Feuil1").Cells(lig208, 18) = Sheets("BD_TELEINFO").Cells(210, 18)
If (Sheets("BD_TELEINFO").Cells(208, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(210, 19) = "X") Then
Sheets("Feuil1").Cells(lig208, 19) = 1046 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig209 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig209 = lig209 + 1
Sheets("Feuil1").Cells(lig209, 7) = poste.Value
Sheets("Feuil1").Cells(lig209, 8) = Sheets("BD_TELEINFO").Cells(211, 8)
Sheets("Feuil1").Cells(lig209, 9) = Sheets("BD_TELEINFO").Cells(211, 9)
Sheets("Feuil1").Cells(lig209, 10) = Sheets("BD_TELEINFO").Cells(211, 10)
Sheets("Feuil1").Cells(lig209, 11) = Sheets("BD_TELEINFO").Cells(211, 11)
Sheets("Feuil1").Cells(lig209, 12) = Sheets("BD_TELEINFO").Cells(211, 12)
Sheets("Feuil1").Cells(lig209, 18) = Sheets("BD_TELEINFO").Cells(211, 18)
If (Sheets("BD_TELEINFO").Cells(209, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(211, 19) = "X") Then
Sheets("Feuil1").Cells(lig209, 19) = 1047 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig210 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig210 = lig210 + 1
Sheets("Feuil1").Cells(lig210, 7) = poste.Value
Sheets("Feuil1").Cells(lig210, 8) = Sheets("BD_TELEINFO").Cells(212, 8)
Sheets("Feuil1").Cells(lig210, 9) = Sheets("BD_TELEINFO").Cells(212, 9)
Sheets("Feuil1").Cells(lig210, 10) = Sheets("BD_TELEINFO").Cells(212, 10)
Sheets("Feuil1").Cells(lig210, 11) = Sheets("BD_TELEINFO").Cells(212, 11)
Sheets("Feuil1").Cells(lig210, 12) = Sheets("BD_TELEINFO").Cells(212, 12)
Sheets("Feuil1").Cells(lig210, 18) = Sheets("BD_TELEINFO").Cells(212, 18)
If (Sheets("BD_TELEINFO").Cells(212, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(212, 19) = "X") Then
Sheets("Feuil1").Cells(lig210, 19) = 8 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig211 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig211 = lig211 + 1
Sheets("Feuil1").Cells(lig211, 7) = poste.Value
Sheets("Feuil1").Cells(lig211, 8) = Sheets("BD_TELEINFO").Cells(213, 8)
Sheets("Feuil1").Cells(lig211, 9) = Sheets("BD_TELEINFO").Cells(213, 9)
Sheets("Feuil1").Cells(lig211, 10) = Sheets("BD_TELEINFO").Cells(213, 10)
Sheets("Feuil1").Cells(lig211, 11) = Sheets("BD_TELEINFO").Cells(213, 11)
Sheets("Feuil1").Cells(lig211, 12) = Sheets("BD_TELEINFO").Cells(213, 12)
Sheets("Feuil1").Cells(lig211, 18) = Sheets("BD_TELEINFO").Cells(213, 18)
If (Sheets("BD_TELEINFO").Cells(213, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(213, 19) = "X") Then
Sheets("Feuil1").Cells(lig211, 19) = 9 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig212 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig212 = lig212 + 1
Sheets("Feuil1").Cells(lig212, 7) = poste.Value
Sheets("Feuil1").Cells(lig212, 8) = Sheets("BD_TELEINFO").Cells(214, 8)
Sheets("Feuil1").Cells(lig212, 9) = Sheets("BD_TELEINFO").Cells(214, 9)
Sheets("Feuil1").Cells(lig212, 10) = Sheets("BD_TELEINFO").Cells(214, 10)
Sheets("Feuil1").Cells(lig212, 11) = Sheets("BD_TELEINFO").Cells(214, 11)
Sheets("Feuil1").Cells(lig212, 12) = Sheets("BD_TELEINFO").Cells(214, 12)
Sheets("Feuil1").Cells(lig212, 18) = Sheets("BD_TELEINFO").Cells(214, 18)
If (Sheets("BD_TELEINFO").Cells(212, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(214, 19) = "X") Then
Sheets("Feuil1").Cells(lig212, 19) = 10 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig213 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig213 = lig213 + 1
Sheets("Feuil1").Cells(lig213, 7) = poste.Value
Sheets("Feuil1").Cells(lig213, 8) = Sheets("BD_TELEINFO").Cells(215, 8)
Sheets("Feuil1").Cells(lig213, 9) = Sheets("BD_TELEINFO").Cells(215, 9)
Sheets("Feuil1").Cells(lig213, 10) = Sheets("BD_TELEINFO").Cells(215, 10)
Sheets("Feuil1").Cells(lig213, 11) = Sheets("BD_TELEINFO").Cells(215, 11)
Sheets("Feuil1").Cells(lig213, 12) = Sheets("BD_TELEINFO").Cells(215, 12)
Sheets("Feuil1").Cells(lig213, 18) = Sheets("BD_TELEINFO").Cells(215, 18)
If (Sheets("BD_TELEINFO").Cells(213, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(215, 19) = "X") Then
Sheets("Feuil1").Cells(lig213, 19) = 11 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig214 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig214 = lig214 + 1
Sheets("Feuil1").Cells(lig214, 7) = poste.Value
Sheets("Feuil1").Cells(lig214, 8) = Sheets("BD_TELEINFO").Cells(216, 8)
Sheets("Feuil1").Cells(lig214, 9) = Sheets("BD_TELEINFO").Cells(216, 9)
Sheets("Feuil1").Cells(lig214, 10) = Sheets("BD_TELEINFO").Cells(216, 10)
Sheets("Feuil1").Cells(lig214, 11) = Sheets("BD_TELEINFO").Cells(216, 11)
Sheets("Feuil1").Cells(lig214, 12) = Sheets("BD_TELEINFO").Cells(216, 12)
Sheets("Feuil1").Cells(lig214, 18) = Sheets("BD_TELEINFO").Cells(216, 18)
If (Sheets("BD_TELEINFO").Cells(216, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(216, 19) = "X") Then
Sheets("Feuil1").Cells(lig214, 19) = 1048 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig215 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig215 = lig215 + 1
Sheets("Feuil1").Cells(lig215, 7) = poste.Value
Sheets("Feuil1").Cells(lig215, 8) = Sheets("BD_TELEINFO").Cells(217, 8)
Sheets("Feuil1").Cells(lig215, 9) = Sheets("BD_TELEINFO").Cells(217, 9)
Sheets("Feuil1").Cells(lig215, 10) = Sheets("BD_TELEINFO").Cells(217, 10)
Sheets("Feuil1").Cells(lig215, 11) = Sheets("BD_TELEINFO").Cells(217, 11)
Sheets("Feuil1").Cells(lig215, 12) = Sheets("BD_TELEINFO").Cells(217, 12)
Sheets("Feuil1").Cells(lig215, 18) = Sheets("BD_TELEINFO").Cells(217, 18)
If (Sheets("BD_TELEINFO").Cells(217, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(217, 19) = "X") Then
Sheets("Feuil1").Cells(lig215, 19) = 1049 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig216 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig216 = lig216 + 1
Sheets("Feuil1").Cells(lig216, 7) = poste.Value
Sheets("Feuil1").Cells(lig216, 8) = Sheets("BD_TELEINFO").Cells(218, 8)
Sheets("Feuil1").Cells(lig216, 9) = Sheets("BD_TELEINFO").Cells(218, 9)
Sheets("Feuil1").Cells(lig216, 10) = Sheets("BD_TELEINFO").Cells(218, 10)
Sheets("Feuil1").Cells(lig216, 11) = Sheets("BD_TELEINFO").Cells(218, 11)
Sheets("Feuil1").Cells(lig216, 12) = Sheets("BD_TELEINFO").Cells(218, 12)
Sheets("Feuil1").Cells(lig216, 18) = Sheets("BD_TELEINFO").Cells(218, 18)
If (Sheets("BD_TELEINFO").Cells(216, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(218, 19) = "X") Then
Sheets("Feuil1").Cells(lig216, 19) = 1050 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig217 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig217 = lig217 + 1
Sheets("Feuil1").Cells(lig217, 7) = poste.Value
Sheets("Feuil1").Cells(lig217, 8) = Sheets("BD_TELEINFO").Cells(219, 8)
Sheets("Feuil1").Cells(lig217, 9) = Sheets("BD_TELEINFO").Cells(219, 9)
Sheets("Feuil1").Cells(lig217, 10) = Sheets("BD_TELEINFO").Cells(219, 10)
Sheets("Feuil1").Cells(lig217, 11) = Sheets("BD_TELEINFO").Cells(219, 11)
Sheets("Feuil1").Cells(lig217, 12) = Sheets("BD_TELEINFO").Cells(219, 12)
Sheets("Feuil1").Cells(lig217, 18) = Sheets("BD_TELEINFO").Cells(219, 18)
If (Sheets("BD_TELEINFO").Cells(217, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(219, 19) = "X") Then
Sheets("Feuil1").Cells(lig217, 19) = 1051 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig218 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig218 = lig218 + 1
Sheets("Feuil1").Cells(lig218, 7) = poste.Value
Sheets("Feuil1").Cells(lig218, 8) = Sheets("BD_TELEINFO").Cells(220, 8)
Sheets("Feuil1").Cells(lig218, 9) = Sheets("BD_TELEINFO").Cells(220, 9)
Sheets("Feuil1").Cells(lig218, 10) = Sheets("BD_TELEINFO").Cells(220, 10)
Sheets("Feuil1").Cells(lig218, 11) = Sheets("BD_TELEINFO").Cells(220, 11)
Sheets("Feuil1").Cells(lig218, 12) = Sheets("BD_TELEINFO").Cells(220, 12)
Sheets("Feuil1").Cells(lig218, 18) = Sheets("BD_TELEINFO").Cells(220, 18)
lig219 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig219 = lig219 + 1
Sheets("Feuil1").Cells(lig219, 7) = poste.Value
Sheets("Feuil1").Cells(lig219, 8) = Sheets("BD_TELEINFO").Cells(221, 8)
Sheets("Feuil1").Cells(lig219, 9) = Sheets("BD_TELEINFO").Cells(221, 9)
Sheets("Feuil1").Cells(lig219, 10) = Sheets("BD_TELEINFO").Cells(221, 10)
Sheets("Feuil1").Cells(lig219, 11) = Sheets("BD_TELEINFO").Cells(221, 11)
Sheets("Feuil1").Cells(lig219, 12) = Sheets("BD_TELEINFO").Cells(221, 12)
Sheets("Feuil1").Cells(lig219, 18) = Sheets("BD_TELEINFO").Cells(221, 18)
If (Sheets("BD_TELEINFO").Cells(219, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(221, 19) = "X") Then
Sheets("Feuil1").Cells(lig219, 19) = 1052 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig220 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig220 = lig220 + 1
Sheets("Feuil1").Cells(lig220, 7) = poste.Value
Sheets("Feuil1").Cells(lig220, 8) = Sheets("BD_TELEINFO").Cells(222, 8)
Sheets("Feuil1").Cells(lig220, 9) = Sheets("BD_TELEINFO").Cells(222, 9)
Sheets("Feuil1").Cells(lig220, 10) = Sheets("BD_TELEINFO").Cells(222, 10)
Sheets("Feuil1").Cells(lig220, 11) = Sheets("BD_TELEINFO").Cells(222, 11)
Sheets("Feuil1").Cells(lig220, 12) = Sheets("BD_TELEINFO").Cells(222, 12)
Sheets("Feuil1").Cells(lig220, 18) = Sheets("BD_TELEINFO").Cells(222, 18)
Sheets("Feuil1").Cells(lig220, 19) = Sheets("BD_TELEINFO").Cells(222, 19)
lig221 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig221 = lig221 + 1
Sheets("Feuil1").Cells(lig221, 7) = poste.Value
Sheets("Feuil1").Cells(lig221, 8) = Sheets("BD_TELEINFO").Cells(223, 8)
Sheets("Feuil1").Cells(lig221, 9) = Sheets("BD_TELEINFO").Cells(223, 9)
Sheets("Feuil1").Cells(lig221, 10) = Sheets("BD_TELEINFO").Cells(223, 10)
Sheets("Feuil1").Cells(lig221, 11) = Sheets("BD_TELEINFO").Cells(223, 11)
Sheets("Feuil1").Cells(lig221, 12) = Sheets("BD_TELEINFO").Cells(223, 12)
Sheets("Feuil1").Cells(lig221, 18) = Sheets("BD_TELEINFO").Cells(223, 18)
Sheets("Feuil1").Cells(lig221, 19) = Sheets("BD_TELEINFO").Cells(223, 19)
lig222 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig222 = lig222 + 1
Sheets("Feuil1").Cells(lig222, 7) = poste.Value
Sheets("Feuil1").Cells(lig222, 8) = Sheets("BD_TELEINFO").Cells(224, 8)
Sheets("Feuil1").Cells(lig222, 9) = Sheets("BD_TELEINFO").Cells(224, 9)
Sheets("Feuil1").Cells(lig222, 10) = Sheets("BD_TELEINFO").Cells(224, 10)
Sheets("Feuil1").Cells(lig222, 11) = Sheets("BD_TELEINFO").Cells(224, 11)
Sheets("Feuil1").Cells(lig222, 12) = Sheets("BD_TELEINFO").Cells(224, 12)
Sheets("Feuil1").Cells(lig222, 18) = Sheets("BD_TELEINFO").Cells(224, 18)
If (Sheets("BD_TELEINFO").Cells(224, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(224, 19) = "X") Then
Sheets("Feuil1").Cells(lig222, 19) = 12 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig223 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig223 = lig223 + 1
Sheets("Feuil1").Cells(lig223, 7) = poste.Value
Sheets("Feuil1").Cells(lig223, 8) = Sheets("BD_TELEINFO").Cells(225, 8)
Sheets("Feuil1").Cells(lig223, 9) = Sheets("BD_TELEINFO").Cells(225, 9)
Sheets("Feuil1").Cells(lig223, 10) = Sheets("BD_TELEINFO").Cells(225, 10)
Sheets("Feuil1").Cells(lig223, 11) = Sheets("BD_TELEINFO").Cells(225, 11)
Sheets("Feuil1").Cells(lig223, 12) = Sheets("BD_TELEINFO").Cells(225, 12)
Sheets("Feuil1").Cells(lig223, 18) = Sheets("BD_TELEINFO").Cells(225, 18)
Sheets("Feuil1").Cells(lig223, 19) = Sheets("BD_TELEINFO").Cells(225, 19)
lig224 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig224 = lig224 + 1
Sheets("Feuil1").Cells(lig224, 7) = poste.Value
Sheets("Feuil1").Cells(lig224, 8) = Sheets("BD_TELEINFO").Cells(226, 8)
Sheets("Feuil1").Cells(lig224, 9) = Sheets("BD_TELEINFO").Cells(226, 9)
Sheets("Feuil1").Cells(lig224, 10) = Sheets("BD_TELEINFO").Cells(226, 10)
Sheets("Feuil1").Cells(lig224, 11) = Sheets("BD_TELEINFO").Cells(226, 11)
Sheets("Feuil1").Cells(lig224, 12) = Sheets("BD_TELEINFO").Cells(226, 12)
Sheets("Feuil1").Cells(lig224, 18) = Sheets("BD_TELEINFO").Cells(226, 18)
If (Sheets("BD_TELEINFO").Cells(226, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(226, 19) = "X") Then
Sheets("Feuil1").Cells(lig224, 19) = 1053 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig225 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig225 = lig225 + 1
Sheets("Feuil1").Cells(lig225, 7) = poste.Value
Sheets("Feuil1").Cells(lig225, 8) = Sheets("BD_TELEINFO").Cells(227, 8)
Sheets("Feuil1").Cells(lig225, 9) = Sheets("BD_TELEINFO").Cells(227, 9)
Sheets("Feuil1").Cells(lig225, 10) = Sheets("BD_TELEINFO").Cells(227, 10)
Sheets("Feuil1").Cells(lig225, 11) = Sheets("BD_TELEINFO").Cells(227, 11)
Sheets("Feuil1").Cells(lig225, 12) = Sheets("BD_TELEINFO").Cells(227, 12)
Sheets("Feuil1").Cells(lig225, 18) = Sheets("BD_TELEINFO").Cells(227, 18)
If (Sheets("BD_TELEINFO").Cells(225, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(227, 19) = "X") Then
Sheets("Feuil1").Cells(lig225, 19) = 1054 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig226 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig226 = lig226 + 1
Sheets("Feuil1").Cells(lig226, 7) = poste.Value
Sheets("Feuil1").Cells(lig226, 8) = Sheets("BD_TELEINFO").Cells(228, 8)
Sheets("Feuil1").Cells(lig226, 9) = Sheets("BD_TELEINFO").Cells(228, 9)
Sheets("Feuil1").Cells(lig226, 10) = Sheets("BD_TELEINFO").Cells(228, 10)
Sheets("Feuil1").Cells(lig226, 11) = Sheets("BD_TELEINFO").Cells(228, 11)
Sheets("Feuil1").Cells(lig226, 12) = Sheets("BD_TELEINFO").Cells(228, 12)
Sheets("Feuil1").Cells(lig226, 18) = Sheets("BD_TELEINFO").Cells(228, 18)
If (Sheets("BD_TELEINFO").Cells(228, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(228, 19) = "X") Then
Sheets("Feuil1").Cells(lig226, 19) = 1055 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig227 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig227 = lig227 + 1
Sheets("Feuil1").Cells(lig227, 7) = poste.Value
Sheets("Feuil1").Cells(lig227, 8) = Sheets("BD_TELEINFO").Cells(229, 8)
Sheets("Feuil1").Cells(lig227, 9) = Sheets("BD_TELEINFO").Cells(229, 9)
Sheets("Feuil1").Cells(lig227, 10) = Sheets("BD_TELEINFO").Cells(229, 10)
Sheets("Feuil1").Cells(lig227, 11) = Sheets("BD_TELEINFO").Cells(229, 11)
Sheets("Feuil1").Cells(lig227, 12) = Sheets("BD_TELEINFO").Cells(229, 12)
Sheets("Feuil1").Cells(lig227, 18) = Sheets("BD_TELEINFO").Cells(229, 18)
If (Sheets("BD_TELEINFO").Cells(227, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(229, 19) = "X") Then
Sheets("Feuil1").Cells(lig227, 19) = 1056 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig228 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig228 = lig228 + 1
Sheets("Feuil1").Cells(lig228, 7) = poste.Value
Sheets("Feuil1").Cells(lig228, 8) = Sheets("BD_TELEINFO").Cells(230, 8)
Sheets("Feuil1").Cells(lig228, 9) = Sheets("BD_TELEINFO").Cells(230, 9)
Sheets("Feuil1").Cells(lig228, 10) = Sheets("BD_TELEINFO").Cells(230, 10)
Sheets("Feuil1").Cells(lig228, 11) = Sheets("BD_TELEINFO").Cells(230, 11)
Sheets("Feuil1").Cells(lig228, 12) = Sheets("BD_TELEINFO").Cells(230, 12)
Sheets("Feuil1").Cells(lig228, 18) = Sheets("BD_TELEINFO").Cells(230, 18)
Sheets("Feuil1").Cells(lig228, 19) = Sheets("BD_TELEINFO").Cells(230, 19)
lig229 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig229 = lig229 + 1
Sheets("Feuil1").Cells(lig229, 7) = 5416
Sheets("Feuil1").Cells(lig229, 8) = Sheets("BD_TELEINFO").Cells(231, 8)
Sheets("Feuil1").Cells(lig229, 9) = Sheets("BD_TELEINFO").Cells(231, 9)
Sheets("Feuil1").Cells(lig229, 10) = Sheets("BD_TELEINFO").Cells(231, 10)
Sheets("Feuil1").Cells(lig229, 11) = Sheets("BD_TELEINFO").Cells(231, 11)
Sheets("Feuil1").Cells(lig229, 12) = Sheets("BD_TELEINFO").Cells(231, 12)
Sheets("Feuil1").Cells(lig229, 18) = Sheets("BD_TELEINFO").Cells(231, 18)
If (Sheets("BD_TELEINFO").Cells(229, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(231, 19) = "X") Then
Sheets("Feuil1").Cells(lig229, 19) = 1057 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig230 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig230 = lig230 + 1
Sheets("Feuil1").Cells(lig230, 7) = poste.Value
Sheets("Feuil1").Cells(lig230, 8) = Sheets("BD_TELEINFO").Cells(232, 8)
Sheets("Feuil1").Cells(lig230, 9) = Sheets("BD_TELEINFO").Cells(232, 9)
Sheets("Feuil1").Cells(lig230, 10) = Sheets("BD_TELEINFO").Cells(232, 10)
Sheets("Feuil1").Cells(lig230, 11) = Sheets("BD_TELEINFO").Cells(232, 11)
Sheets("Feuil1").Cells(lig230, 12) = Sheets("BD_TELEINFO").Cells(232, 12)
Sheets("Feuil1").Cells(lig230, 18) = Sheets("BD_TELEINFO").Cells(232, 18)
Sheets("Feuil1").Cells(lig230, 19) = Sheets("BD_TELEINFO").Cells(232, 19)
lig231 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig231 = lig231 + 1
Sheets("Feuil1").Cells(lig231, 7) = poste.Value
Sheets("Feuil1").Cells(lig231, 8) = Sheets("BD_TELEINFO").Cells(233, 8)
Sheets("Feuil1").Cells(lig231, 9) = Sheets("BD_TELEINFO").Cells(233, 9)
Sheets("Feuil1").Cells(lig231, 10) = Sheets("BD_TELEINFO").Cells(233, 10)
Sheets("Feuil1").Cells(lig231, 11) = Sheets("BD_TELEINFO").Cells(233, 11)
Sheets("Feuil1").Cells(lig231, 12) = Sheets("BD_TELEINFO").Cells(233, 12)
Sheets("Feuil1").Cells(lig231, 18) = Sheets("BD_TELEINFO").Cells(233, 18)
If (Sheets("BD_TELEINFO").Cells(231, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(233, 19) = "X") Then
Sheets("Feuil1").Cells(lig231, 19) = 1058 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig232 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig232 = lig232 + 1
Sheets("Feuil1").Cells(lig232, 7) = poste.Value
Sheets("Feuil1").Cells(lig232, 8) = Sheets("BD_TELEINFO").Cells(234, 8)
Sheets("Feuil1").Cells(lig232, 9) = Sheets("BD_TELEINFO").Cells(234, 9)
Sheets("Feuil1").Cells(lig232, 10) = Sheets("BD_TELEINFO").Cells(234, 10)
Sheets("Feuil1").Cells(lig232, 11) = Sheets("BD_TELEINFO").Cells(234, 11)
Sheets("Feuil1").Cells(lig232, 12) = Sheets("BD_TELEINFO").Cells(234, 12)
Sheets("Feuil1").Cells(lig232, 18) = Sheets("BD_TELEINFO").Cells(234, 18)
If (Sheets("BD_TELEINFO").Cells(234, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(234, 19) = "X") Then
Sheets("Feuil1").Cells(lig232, 19) = 13 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig233 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig233 = lig233 + 1
Sheets("Feuil1").Cells(lig233, 7) = poste.Value
Sheets("Feuil1").Cells(lig233, 8) = Sheets("BD_TELEINFO").Cells(235, 8)
Sheets("Feuil1").Cells(lig233, 9) = Sheets("BD_TELEINFO").Cells(235, 9)
Sheets("Feuil1").Cells(lig233, 10) = Sheets("BD_TELEINFO").Cells(235, 10)
Sheets("Feuil1").Cells(lig233, 11) = Sheets("BD_TELEINFO").Cells(235, 11)
Sheets("Feuil1").Cells(lig233, 12) = Sheets("BD_TELEINFO").Cells(235, 12)
Sheets("Feuil1").Cells(lig233, 18) = Sheets("BD_TELEINFO").Cells(235, 18)
If (Sheets("BD_TELEINFO").Cells(235, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(235, 19) = "X") Then
Sheets("Feuil1").Cells(lig233, 19) = 14 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig234 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig234 = lig234 + 1
Sheets("Feuil1").Cells(lig234, 7) = poste.Value
Sheets("Feuil1").Cells(lig234, 8) = Sheets("BD_TELEINFO").Cells(236, 8)
Sheets("Feuil1").Cells(lig234, 9) = Sheets("BD_TELEINFO").Cells(236, 9)
Sheets("Feuil1").Cells(lig234, 10) = Sheets("BD_TELEINFO").Cells(236, 10)
Sheets("Feuil1").Cells(lig234, 11) = Sheets("BD_TELEINFO").Cells(236, 11)
Sheets("Feuil1").Cells(lig234, 12) = Sheets("BD_TELEINFO").Cells(236, 12)
Sheets("Feuil1").Cells(lig234, 18) = Sheets("BD_TELEINFO").Cells(236, 18)
Sheets("Feuil1").Cells(lig234, 19) = Sheets("BD_TELEINFO").Cells(236, 19)
lig235 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig235 = lig235 + 1
Sheets("Feuil1").Cells(lig235, 7) = poste.Value
Sheets("Feuil1").Cells(lig235, 8) = Sheets("BD_TELEINFO").Cells(237, 8)
Sheets("Feuil1").Cells(lig235, 9) = Sheets("BD_TELEINFO").Cells(237, 9)
Sheets("Feuil1").Cells(lig235, 10) = Sheets("BD_TELEINFO").Cells(237, 10)
Sheets("Feuil1").Cells(lig235, 11) = Sheets("BD_TELEINFO").Cells(237, 11)
Sheets("Feuil1").Cells(lig235, 12) = Sheets("BD_TELEINFO").Cells(237, 12)
Sheets("Feuil1").Cells(lig235, 18) = Sheets("BD_TELEINFO").Cells(237, 18)
Sheets("Feuil1").Cells(lig235, 19) = Sheets("BD_TELEINFO").Cells(237, 19)
lig236 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig236 = lig236 + 1
Sheets("Feuil1").Cells(lig236, 7) = poste.Value
Sheets("Feuil1").Cells(lig236, 8) = Sheets("BD_TELEINFO").Cells(238, 8)
Sheets("Feuil1").Cells(lig236, 9) = Sheets("BD_TELEINFO").Cells(238, 9)
Sheets("Feuil1").Cells(lig236, 10) = Sheets("BD_TELEINFO").Cells(238, 10)
Sheets("Feuil1").Cells(lig236, 11) = Sheets("BD_TELEINFO").Cells(238, 11)
Sheets("Feuil1").Cells(lig236, 12) = Sheets("BD_TELEINFO").Cells(238, 12)
Sheets("Feuil1").Cells(lig236, 18) = Sheets("BD_TELEINFO").Cells(238, 18)
Sheets("Feuil1").Cells(lig236, 19) = Sheets("BD_TELEINFO").Cells(238, 19)
lig237 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig237 = lig237 + 1
Sheets("Feuil1").Cells(lig237, 7) = poste.Value
Sheets("Feuil1").Cells(lig237, 8) = Sheets("BD_TELEINFO").Cells(239, 8)
Sheets("Feuil1").Cells(lig237, 9) = Sheets("BD_TELEINFO").Cells(239, 9)
Sheets("Feuil1").Cells(lig237, 10) = Sheets("BD_TELEINFO").Cells(239, 10)
Sheets("Feuil1").Cells(lig237, 11) = Sheets("BD_TELEINFO").Cells(239, 11)
Sheets("Feuil1").Cells(lig237, 12) = Sheets("BD_TELEINFO").Cells(239, 12)
Sheets("Feuil1").Cells(lig237, 18) = Sheets("BD_TELEINFO").Cells(239, 18)
If (Sheets("BD_TELEINFO").Cells(239, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(239, 19) = "X") Then
Sheets("Feuil1").Cells(lig237, 19) = 15 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig238 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig238 = lig238 + 1
Sheets("Feuil1").Cells(lig238, 7) = poste.Value
Sheets("Feuil1").Cells(lig238, 8) = Sheets("BD_TELEINFO").Cells(240, 8)
Sheets("Feuil1").Cells(lig238, 9) = Sheets("BD_TELEINFO").Cells(240, 9)
Sheets("Feuil1").Cells(lig238, 10) = Sheets("BD_TELEINFO").Cells(240, 10)
Sheets("Feuil1").Cells(lig238, 11) = Sheets("BD_TELEINFO").Cells(240, 11)
Sheets("Feuil1").Cells(lig238, 12) = Sheets("BD_TELEINFO").Cells(240, 12)
Sheets("Feuil1").Cells(lig238, 18) = Sheets("BD_TELEINFO").Cells(240, 18)
If (Sheets("BD_TELEINFO").Cells(240, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(240, 19) = "X") Then
Sheets("Feuil1").Cells(lig238, 19) = 16 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig239 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig239 = lig239 + 1
Sheets("Feuil1").Cells(lig239, 7) = poste.Value
Sheets("Feuil1").Cells(lig239, 8) = Sheets("BD_TELEINFO").Cells(241, 8)
Sheets("Feuil1").Cells(lig239, 9) = Sheets("BD_TELEINFO").Cells(241, 9)
Sheets("Feuil1").Cells(lig239, 10) = Sheets("BD_TELEINFO").Cells(241, 10)
Sheets("Feuil1").Cells(lig239, 11) = Sheets("BD_TELEINFO").Cells(241, 11)
Sheets("Feuil1").Cells(lig239, 12) = Sheets("BD_TELEINFO").Cells(241, 12)
Sheets("Feuil1").Cells(lig239, 18) = Sheets("BD_TELEINFO").Cells(241, 18)
Sheets("Feuil1").Cells(lig239, 19) = Sheets("BD_TELEINFO").Cells(241, 19)
lig240 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig240 = lig240 + 1
Sheets("Feuil1").Cells(lig240, 7) = poste.Value
Sheets("Feuil1").Cells(lig240, 8) = Sheets("BD_TELEINFO").Cells(242, 8)
Sheets("Feuil1").Cells(lig240, 9) = Sheets("BD_TELEINFO").Cells(242, 9)
Sheets("Feuil1").Cells(lig240, 10) = Sheets("BD_TELEINFO").Cells(242, 10)
Sheets("Feuil1").Cells(lig240, 11) = Sheets("BD_TELEINFO").Cells(242, 11)
Sheets("Feuil1").Cells(lig240, 12) = Sheets("BD_TELEINFO").Cells(242, 12)
Sheets("Feuil1").Cells(lig240, 18) = Sheets("BD_TELEINFO").Cells(242, 18)
Sheets("Feuil1").Cells(lig240, 19) = Sheets("BD_TELEINFO").Cells(242, 19)
lig241 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig241 = lig241 + 1
Sheets("Feuil1").Cells(lig241, 7) = poste.Value
Sheets("Feuil1").Cells(lig241, 8) = Sheets("BD_TELEINFO").Cells(243, 8)
Sheets("Feuil1").Cells(lig241, 9) = Sheets("BD_TELEINFO").Cells(243, 9)
Sheets("Feuil1").Cells(lig241, 10) = Sheets("BD_TELEINFO").Cells(243, 10)
Sheets("Feuil1").Cells(lig241, 11) = Sheets("BD_TELEINFO").Cells(243, 11)
Sheets("Feuil1").Cells(lig241, 12) = Sheets("BD_TELEINFO").Cells(243, 12)
Sheets("Feuil1").Cells(lig241, 18) = Sheets("BD_TELEINFO").Cells(243, 18)
Sheets("Feuil1").Cells(lig241, 19) = Sheets("BD_TELEINFO").Cells(243, 19)
lig242 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig242 = lig242 + 1
Sheets("Feuil1").Cells(lig242, 7) = poste.Value
Sheets("Feuil1").Cells(lig242, 8) = Sheets("BD_TELEINFO").Cells(244, 8)
Sheets("Feuil1").Cells(lig242, 9) = Sheets("BD_TELEINFO").Cells(244, 9)
Sheets("Feuil1").Cells(lig242, 10) = Sheets("BD_TELEINFO").Cells(244, 10)
Sheets("Feuil1").Cells(lig242, 11) = Sheets("BD_TELEINFO").Cells(244, 11)
Sheets("Feuil1").Cells(lig242, 12) = Sheets("BD_TELEINFO").Cells(244, 12)
Sheets("Feuil1").Cells(lig242, 18) = Sheets("BD_TELEINFO").Cells(244, 18)
If (Sheets("BD_TELEINFO").Cells(244, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(244, 19) = "X") Then
Sheets("Feuil1").Cells(lig242, 19) = 17 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig243 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig243 = lig243 + 1
Sheets("Feuil1").Cells(lig243, 7) = poste.Value
Sheets("Feuil1").Cells(lig243, 8) = Sheets("BD_TELEINFO").Cells(245, 8)
Sheets("Feuil1").Cells(lig243, 9) = Sheets("BD_TELEINFO").Cells(245, 9)
Sheets("Feuil1").Cells(lig243, 10) = Sheets("BD_TELEINFO").Cells(245, 10)
Sheets("Feuil1").Cells(lig243, 11) = Sheets("BD_TELEINFO").Cells(245, 11)
Sheets("Feuil1").Cells(lig243, 12) = Sheets("BD_TELEINFO").Cells(245, 12)
Sheets("Feuil1").Cells(lig243, 18) = Sheets("BD_TELEINFO").Cells(245, 18)
If (Sheets("BD_TELEINFO").Cells(245, 8) = "DPI" And Sheets("BD_TELEINFO").Cells(245, 19) = "X") Then
Sheets("Feuil1").Cells(lig243, 19) = 18 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig244 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig244 = lig244 + 1
Sheets("Feuil1").Cells(lig244, 7) = poste.Value
Sheets("Feuil1").Cells(lig244, 8) = Sheets("BD_TELEINFO").Cells(246, 8)
Sheets("Feuil1").Cells(lig244, 9) = Sheets("BD_TELEINFO").Cells(246, 9)
Sheets("Feuil1").Cells(lig244, 10) = Sheets("BD_TELEINFO").Cells(246, 10)
Sheets("Feuil1").Cells(lig244, 11) = Sheets("BD_TELEINFO").Cells(246, 11)
Sheets("Feuil1").Cells(lig244, 12) = Sheets("BD_TELEINFO").Cells(246, 12)
Sheets("Feuil1").Cells(lig244, 18) = Sheets("BD_TELEINFO").Cells(246, 18)
Sheets("Feuil1").Cells(lig244, 19) = Sheets("BD_TELEINFO").Cells(246, 19)
lig245 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig245 = lig245 + 1
Sheets("Feuil1").Cells(lig245, 7) = poste.Value
Sheets("Feuil1").Cells(lig245, 8) = Sheets("BD_TELEINFO").Cells(247, 8)
Sheets("Feuil1").Cells(lig245, 9) = Sheets("BD_TELEINFO").Cells(247, 9)
Sheets("Feuil1").Cells(lig245, 10) = Sheets("BD_TELEINFO").Cells(247, 10)
Sheets("Feuil1").Cells(lig245, 11) = Sheets("BD_TELEINFO").Cells(247, 11)
Sheets("Feuil1").Cells(lig245, 12) = Sheets("BD_TELEINFO").Cells(247, 12)
Sheets("Feuil1").Cells(lig245, 18) = Sheets("BD_TELEINFO").Cells(247, 18)
Sheets("Feuil1").Cells(lig245, 19) = Sheets("BD_TELEINFO").Cells(247, 19)
lig246 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig246 = lig246 + 1
Sheets("Feuil1").Cells(lig246, 7) = poste.Value
Sheets("Feuil1").Cells(lig246, 8) = Sheets("BD_TELEINFO").Cells(248, 8)
Sheets("Feuil1").Cells(lig246, 9) = Sheets("BD_TELEINFO").Cells(248, 9)
Sheets("Feuil1").Cells(lig246, 10) = Sheets("BD_TELEINFO").Cells(248, 10)
Sheets("Feuil1").Cells(lig246, 11) = Sheets("BD_TELEINFO").Cells(248, 11)
Sheets("Feuil1").Cells(lig246, 12) = Sheets("BD_TELEINFO").Cells(248, 12)
Sheets("Feuil1").Cells(lig246, 18) = Sheets("BD_TELEINFO").Cells(248, 18)
Sheets("Feuil1").Cells(lig246, 19) = Sheets("BD_TELEINFO").Cells(248, 19)
lig247 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig247 = lig247 + 1
Sheets("Feuil1").Cells(lig247, 7) = poste.Value
Sheets("Feuil1").Cells(lig247, 8) = Sheets("BD_TELEINFO").Cells(249, 8)
Sheets("Feuil1").Cells(lig247, 9) = Sheets("BD_TELEINFO").Cells(249, 9)
Sheets("Feuil1").Cells(lig247, 10) = Sheets("BD_TELEINFO").Cells(249, 10)
Sheets("Feuil1").Cells(lig247, 11) = Sheets("BD_TELEINFO").Cells(249, 11)
Sheets("Feuil1").Cells(lig247, 12) = Sheets("BD_TELEINFO").Cells(249, 12)
Sheets("Feuil1").Cells(lig247, 18) = Sheets("BD_TELEINFO").Cells(249, 18)
Sheets("Feuil1").Cells(lig247, 19) = Sheets("BD_TELEINFO").Cells(249, 19)
lig248 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig248 = lig248 + 1
Sheets("Feuil1").Cells(lig248, 7) = poste.Value
Sheets("Feuil1").Cells(lig248, 8) = Sheets("BD_TELEINFO").Cells(250, 8)
Sheets("Feuil1").Cells(lig248, 9) = Sheets("BD_TELEINFO").Cells(250, 9)
Sheets("Feuil1").Cells(lig248, 10) = Sheets("BD_TELEINFO").Cells(250, 10)
Sheets("Feuil1").Cells(lig248, 11) = Sheets("BD_TELEINFO").Cells(250, 11)
Sheets("Feuil1").Cells(lig248, 12) = Sheets("BD_TELEINFO").Cells(250, 12)
Sheets("Feuil1").Cells(lig248, 18) = Sheets("BD_TELEINFO").Cells(250, 18)
Sheets("Feuil1").Cells(lig248, 19) = Sheets("BD_TELEINFO").Cells(250, 19)
lig249 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig249 = lig249 + 1
Sheets("Feuil1").Cells(lig249, 7) = poste.Value
Sheets("Feuil1").Cells(lig249, 8) = Sheets("BD_TELEINFO").Cells(251, 8)
Sheets("Feuil1").Cells(lig249, 9) = Sheets("BD_TELEINFO").Cells(251, 9)
Sheets("Feuil1").Cells(lig249, 10) = Sheets("BD_TELEINFO").Cells(251, 10)
Sheets("Feuil1").Cells(lig249, 11) = Sheets("BD_TELEINFO").Cells(251, 11)
Sheets("Feuil1").Cells(lig249, 12) = Sheets("BD_TELEINFO").Cells(251, 12)
Sheets("Feuil1").Cells(lig249, 18) = Sheets("BD_TELEINFO").Cells(251, 18)
If (Sheets("BD_TELEINFO").Cells(251, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(251, 19) = "X") Then
Sheets("Feuil1").Cells(lig249, 19) = 1059 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig250 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig250 = lig250 + 1
Sheets("Feuil1").Cells(lig250, 7) = poste.Value
Sheets("Feuil1").Cells(lig250, 8) = Sheets("BD_TELEINFO").Cells(252, 8)
Sheets("Feuil1").Cells(lig250, 9) = Sheets("BD_TELEINFO").Cells(252, 9)
Sheets("Feuil1").Cells(lig250, 10) = Sheets("BD_TELEINFO").Cells(252, 10)
Sheets("Feuil1").Cells(lig250, 11) = Sheets("BD_TELEINFO").Cells(252, 11)
Sheets("Feuil1").Cells(lig250, 12) = Sheets("BD_TELEINFO").Cells(252, 12)
Sheets("Feuil1").Cells(lig250, 18) = Sheets("BD_TELEINFO").Cells(252, 18)
If (Sheets("BD_TELEINFO").Cells(250, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(252, 19) = "X") Then
Sheets("Feuil1").Cells(lig250, 19) = 1060 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig251 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig251 = lig251 + 1
Sheets("Feuil1").Cells(lig251, 7) = poste.Value
Sheets("Feuil1").Cells(lig251, 8) = Sheets("BD_TELEINFO").Cells(253, 8)
Sheets("Feuil1").Cells(lig251, 9) = Sheets("BD_TELEINFO").Cells(253, 9)
Sheets("Feuil1").Cells(lig251, 10) = Sheets("BD_TELEINFO").Cells(253, 10)
Sheets("Feuil1").Cells(lig251, 11) = Sheets("BD_TELEINFO").Cells(253, 11)
Sheets("Feuil1").Cells(lig251, 12) = Sheets("BD_TELEINFO").Cells(253, 12)
Sheets("Feuil1").Cells(lig251, 18) = Sheets("BD_TELEINFO").Cells(253, 18)
If (Sheets("BD_TELEINFO").Cells(251, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(253, 19) = "X") Then
Sheets("Feuil1").Cells(lig251, 19) = 1061 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig252 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig252 = lig252 + 1
Sheets("Feuil1").Cells(lig252, 7) = poste.Value
Sheets("Feuil1").Cells(lig252, 8) = Sheets("BD_TELEINFO").Cells(254, 8)
Sheets("Feuil1").Cells(lig252, 9) = Sheets("BD_TELEINFO").Cells(254, 9)
Sheets("Feuil1").Cells(lig252, 10) = Sheets("BD_TELEINFO").Cells(254, 10)
Sheets("Feuil1").Cells(lig252, 11) = Sheets("BD_TELEINFO").Cells(254, 11)
Sheets("Feuil1").Cells(lig252, 12) = Sheets("BD_TELEINFO").Cells(254, 12)
Sheets("Feuil1").Cells(lig252, 18) = Sheets("BD_TELEINFO").Cells(254, 18)
If (Sheets("BD_TELEINFO").Cells(252, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(254, 19) = "X") Then
Sheets("Feuil1").Cells(lig252, 19) = 1062 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig253 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig253 = lig253 + 1
Sheets("Feuil1").Cells(lig253, 7) = poste.Value
Sheets("Feuil1").Cells(lig253, 8) = Sheets("BD_TELEINFO").Cells(255, 8)
Sheets("Feuil1").Cells(lig253, 9) = Sheets("BD_TELEINFO").Cells(255, 9)
Sheets("Feuil1").Cells(lig253, 10) = Sheets("BD_TELEINFO").Cells(255, 10)
Sheets("Feuil1").Cells(lig253, 11) = Sheets("BD_TELEINFO").Cells(255, 11)
Sheets("Feuil1").Cells(lig253, 12) = Sheets("BD_TELEINFO").Cells(255, 12)
Sheets("Feuil1").Cells(lig253, 18) = Sheets("BD_TELEINFO").Cells(255, 18)
Sheets("Feuil1").Cells(lig253, 19) = Sheets("BD_TELEINFO").Cells(255, 19)
lig254 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig254 = lig254 + 1
Sheets("Feuil1").Cells(lig254, 7) = poste.Value
Sheets("Feuil1").Cells(lig254, 8) = Sheets("BD_TELEINFO").Cells(256, 8)
Sheets("Feuil1").Cells(lig254, 9) = Sheets("BD_TELEINFO").Cells(256, 9)
Sheets("Feuil1").Cells(lig254, 10) = Sheets("BD_TELEINFO").Cells(256, 10)
Sheets("Feuil1").Cells(lig254, 11) = Sheets("BD_TELEINFO").Cells(256, 11)
Sheets("Feuil1").Cells(lig254, 12) = Sheets("BD_TELEINFO").Cells(256, 12)
Sheets("Feuil1").Cells(lig254, 18) = Sheets("BD_TELEINFO").Cells(256, 18)
Sheets("Feuil1").Cells(lig254, 19) = Sheets("BD_TELEINFO").Cells(256, 19)
lig255 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig255 = lig255 + 1
Sheets("Feuil1").Cells(lig255, 7) = poste.Value
Sheets("Feuil1").Cells(lig255, 8) = Sheets("BD_TELEINFO").Cells(257, 8)
Sheets("Feuil1").Cells(lig255, 9) = Sheets("BD_TELEINFO").Cells(257, 9)
Sheets("Feuil1").Cells(lig255, 10) = Sheets("BD_TELEINFO").Cells(257, 10)
Sheets("Feuil1").Cells(lig255, 11) = Sheets("BD_TELEINFO").Cells(257, 11)
Sheets("Feuil1").Cells(lig255, 12) = Sheets("BD_TELEINFO").Cells(257, 12)
Sheets("Feuil1").Cells(lig255, 18) = Sheets("BD_TELEINFO").Cells(257, 18)
Sheets("Feuil1").Cells(lig255, 19) = Sheets("BD_TELEINFO").Cells(257, 19)
lig256 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig256 = lig256 + 1
Sheets("Feuil1").Cells(lig256, 7) = poste.Value
Sheets("Feuil1").Cells(lig256, 8) = Sheets("BD_TELEINFO").Cells(258, 8)
Sheets("Feuil1").Cells(lig256, 9) = Sheets("BD_TELEINFO").Cells(258, 9)
Sheets("Feuil1").Cells(lig256, 10) = Sheets("BD_TELEINFO").Cells(258, 10)
Sheets("Feuil1").Cells(lig256, 11) = Sheets("BD_TELEINFO").Cells(258, 11)
Sheets("Feuil1").Cells(lig256, 12) = Sheets("BD_TELEINFO").Cells(258, 12)
Sheets("Feuil1").Cells(lig256, 18) = Sheets("BD_TELEINFO").Cells(258, 18)
If (Sheets("BD_TELEINFO").Cells(256, 8) = "SPI" And Sheets("BD_TELEINFO").Cells(258, 19) = "X") Then
Sheets("Feuil1").Cells(lig256, 19) = 1063 'Sheets("BD_TELEINFO").Cells(3, 8)
End If
lig257 = Sheets("Feuil1").Range("G10000").End(xlUp).Row 'Enregistrer les participants
lig257 = lig257 + 1
Sheets("Feuil1").Cells(lig257, 7) = poste.Value
Sheets("Feuil1").Cells(lig257, 8) = Sheets("BD_TELEINFO").Cells(259, 8)
Sheets("Feuil1").Cells(lig257, 9) = Sheets("BD_TELEINFO").Cells(259, 9)
Sheet
23 juil. 2018 à 14:05
Tout d'abord pour poster du code voir https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
autre chose : je ne suis pas un spécialiste VBA mais je vois que tu répètes X fois ce bout de code :
Je pense qu'il doit être possible d'en faire une procédure à part qui serait appelée par ton code
De plus d'après ce que je vois ton code est tellement long qu'il n'est pas affiché entièrement sue le site
Au lieu de travailler cellule après cellule tu devrais travailler par bloc de cellules avec Range ( voir ce mot dans ton aide VBA ) Ainsi tu pourrais transférer directement des blocs de cellules entiers et non cellule après cellule
Je ne puis t'aider plus désolé !
23 juil. 2018 à 15:07
Comme le suggère VB95, le découpage en fonctions ou sous "sub" est un bon début
par exemple
Et pour l'utiliser (ici j'ai repris tes deux premiers blocs
Modifié le 23 juil. 2018 à 16:11
Tu devrais ajouter systématiquement en début de chaque module !
Ça t'obliges à déclarer toutes les variables que tu utilises.
Dans ton cas, tu te serais rendu compte que tu utilises trop de variables différentes (lig168, lig169, ...) pour un même élément : la première ligne vide d'une colonne. Pour cela, une seule et même variable suffit. Et là, comme tu répètes toujours le même code, il faut créer une boucle.
Voir :
http://silkyroad.developpez.com/vba/boucles/
Il est probable qu'avec un "Sub" et une boucle, ton code ne fasse plus que quelques lignes.
Modifié le 23 juil. 2018 à 18:36