Macro Excel sur tous les onglets

Le 01/09/2023 à 15:08

bonjour,

J'ai réussi (avec l'aide de chat gpt) a réaliser une macro qui fonctionne correctement lorsque je sélectionne l'onglet en question. Cependant, je voudrais que lorsque la macro a terminé sur l'onglet actif elle passe à l'onglet suivant. Après plusieurs test je n'y arrive pas. Pouvez vous m'aider !

Grand merci à vous 🙏

Sub SommeTexte1() Dim wsSource As Worksheet, wsDest As Worksheet Dim i As Long Dim texteConcatene As String ' Récupère le nom de l'onglet source à partir de la feuille active Dim sourceSheetName As String sourceSheetName = ActiveSheet.Name ' Génère le nom de l'onglet de destination Dim destSheetName As String destSheetName = sourceSheetName & " planning" On Error Resume Next Set wsSource = ThisWorkbook.Sheets(sourceSheetName) On Error GoTo 0 If wsSource Is Nothing Then MsgBox "Feuille source introuvable." Exit Sub End If ' Vérifie si la feuille de destination existe déjà, sinon créez-la On Error Resume Next Set wsDest = ThisWorkbook.Sheets(destSheetName) On Error GoTo 0 If wsDest Is Nothing Then ThisWorkbook.Sheets.Add(After:=wsSource).Name = destSheetName Set wsDest = ThisWorkbook.Sheets(destSheetName) End If ' Copie le contenu de "planning vierge" et le colle dans la feuille de destination ThisWorkbook.Sheets("planning vierge").Cells.Copy Destination:=wsDest.Cells(1, 1) ' Somme de texte pour la ligne 6 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(6, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C10").Value = texteConcatene ' Somme de texte pour la ligne 7 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(7, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C11").Value = texteConcatene ' Somme de texte pour la ligne 8 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(8, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C12").Value = texteConcatene ' Somme de texte pour la ligne 9 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(9, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C13").Value = texteConcatene ' Somme de texte pour la ligne 10 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(10, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C14").Value = texteConcatene ' Somme de texte pour la ligne 11 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(11, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C15").Value = texteConcatene ' Somme de texte pour la ligne 12 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(12, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C16").Value = texteConcatene ' Somme de texte pour la ligne 13 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(13, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C17").Value = texteConcatene ' Somme de texte pour la ligne 14 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(14, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C18").Value = texteConcatene ' Somme de texte pour la ligne 15 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(15, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C19").Value = texteConcatene ' Somme de texte pour la ligne 16 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(16, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C20").Value = texteConcatene ' Somme de texte pour la ligne 17 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(17, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C21").Value = texteConcatene ' Somme de texte pour la ligne 18 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(18, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C22").Value = texteConcatene ' Somme de texte pour la ligne 19 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(19, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C23").Value = texteConcatene ' Somme de texte pour la ligne 20 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(20, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C24").Value = texteConcatene ' Somme de texte pour la ligne 21 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(21, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C25").Value = texteConcatene ' Somme de texte pour la ligne 22 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(22, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C26").Value = texteConcatene ' Somme de texte pour la ligne 23 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(23, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C27").Value = texteConcatene ' Somme de texte pour la ligne 24 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(24, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C28").Value = texteConcatene ' Somme de texte pour la ligne 25 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(25, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C29").Value = texteConcatene ' Somme de texte pour la ligne 26 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(26, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C30").Value = texteConcatene ' Somme de texte pour la ligne 27 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(27, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C31").Value = texteConcatene ' Somme de texte pour la ligne 28 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(28, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C32").Value = texteConcatene ' Somme de texte pour la ligne 29 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(29, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C33").Value = texteConcatene ' Somme de texte pour la ligne 30 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(30, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C34").Value = texteConcatene ' Somme de texte pour la ligne 31 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(31, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C35").Value = texteConcatene ' Somme de texte pour la ligne 32 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(32, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C36").Value = texteConcatene ' Somme de texte pour la ligne 33 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(33, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C37").Value = texteConcatene ' Somme de texte pour la ligne 34 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(34, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C38").Value = texteConcatene ' Somme de texte pour la ligne 35 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(35, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C39").Value = texteConcatene ' Somme de texte pour la ligne 36 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(36, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("C40").Value = texteConcatene ' Somme de texte pour la ligne 6 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(37, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F10").Value = texteConcatene ' Somme de texte pour la ligne 7 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(38, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F11").Value = texteConcatene ' Somme de texte pour la ligne 8 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(39, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F12").Value = texteConcatene ' Somme de texte pour la ligne 9 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(40, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F13").Value = texteConcatene ' Somme de texte pour la ligne 10 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(41, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F14").Value = texteConcatene ' Somme de texte pour la ligne 11 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(42, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F15").Value = texteConcatene ' Somme de texte pour la ligne 12 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(43, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F16").Value = texteConcatene ' Somme de texte pour la ligne 13 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(44, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F17").Value = texteConcatene ' Somme de texte pour la ligne 14 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(45, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F18").Value = texteConcatene ' Somme de texte pour la ligne 15 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(46, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F19").Value = texteConcatene ' Somme de texte pour la ligne 16 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(47, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F20").Value = texteConcatene ' Somme de texte pour la ligne 17 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(48, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F21").Value = texteConcatene ' Somme de texte pour la ligne 18 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(49, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F22").Value = texteConcatene ' Somme de texte pour la ligne 19 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(50, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F23").Value = texteConcatene ' Somme de texte pour la ligne 20 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(51, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F24").Value = texteConcatene ' Somme de texte pour la ligne 21 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(52, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F25").Value = texteConcatene ' Somme de texte pour la ligne 22 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(53, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F26").Value = texteConcatene ' Somme de texte pour la ligne 23 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(54, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F27").Value = texteConcatene ' Somme de texte pour la ligne 24 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(55, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F28").Value = texteConcatene ' Somme de texte pour la ligne 25 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(56, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F29").Value = texteConcatene ' Somme de texte pour la ligne 26 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(57, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F30").Value = texteConcatene ' Somme de texte pour la ligne 27 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(58, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F31").Value = texteConcatene ' Somme de texte pour la ligne 28 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(59, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F32").Value = texteConcatene ' Somme de texte pour la ligne 29 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(60, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F33").Value = texteConcatene ' Somme de texte pour la ligne 30 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(61, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F34").Value = texteConcatene ' Somme de texte pour la ligne 31 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(62, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F35").Value = texteConcatene ' Somme de texte pour la ligne 32 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(63, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F36").Value = texteConcatene ' Somme de texte pour la ligne 33 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(64, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F37").Value = texteConcatene ' Somme de texte pour la ligne 34 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(65, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F38").Value = texteConcatene ' Somme de texte pour la ligne 6 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(66, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I10").Value = texteConcatene ' Somme de texte pour la ligne 7 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(67, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I11").Value = texteConcatene ' Somme de texte pour la ligne 8 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(68, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I12").Value = texteConcatene ' Somme de texte pour la ligne 9 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(69, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I13").Value = texteConcatene ' Somme de texte pour la ligne 10 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(70, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I14").Value = texteConcatene ' Somme de texte pour la ligne 11 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(71, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I15").Value = texteConcatene ' Somme de texte pour la ligne 12 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(72, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I16").Value = texteConcatene ' Somme de texte pour la ligne 13 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(73, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I17").Value = texteConcatene ' Somme de texte pour la ligne 14 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(74, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I18").Value = texteConcatene ' Somme de texte pour la ligne 15 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(75, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I19").Value = texteConcatene ' Somme de texte pour la ligne 16 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(76, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I20").Value = texteConcatene ' Somme de texte pour la ligne 17 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(77, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I21").Value = texteConcatene ' Somme de texte pour la ligne 18 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(78, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I22").Value = texteConcatene ' Somme de texte pour la ligne 19 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(79, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I23").Value = texteConcatene ' Somme de texte pour la ligne 20 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(80, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I24").Value = texteConcatene ' Somme de texte pour la ligne 21 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(81, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I25").Value = texteConcatene ' Somme de texte pour la ligne 22 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(82, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I26").Value = texteConcatene ' Somme de texte pour la ligne 23 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(83, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I27").Value = texteConcatene ' Somme de texte pour la ligne 24 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(84, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I28").Value = texteConcatene ' Somme de texte pour la ligne 25 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(85, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I29").Value = texteConcatene ' Somme de texte pour la ligne 26 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(86, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I30").Value = texteConcatene ' Somme de texte pour la ligne 27 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(87, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I31").Value = texteConcatene ' Somme de texte pour la ligne 28 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(88, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I32").Value = texteConcatene ' Somme de texte pour la ligne 29 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(89, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I33").Value = texteConcatene ' Somme de texte pour la ligne 30 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(90, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I34").Value = texteConcatene ' Somme de texte pour la ligne 31 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(91, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I35").Value = texteConcatene ' Somme de texte pour la ligne 32 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(92, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I36").Value = texteConcatene ' Somme de texte pour la ligne 33 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(93, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I37").Value = texteConcatene ' Somme de texte pour la ligne 34 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(94, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I38").Value = texteConcatene ' Somme de texte pour la ligne 35 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(95, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I39").Value = texteConcatene ' Somme de texte pour la ligne 36 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(96, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("I40").Value = texteConcatene ' Somme de texte pour la ligne 6 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(37, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F10").Value = texteConcatene ' Somme de texte pour la ligne 7 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(38, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F11").Value = texteConcatene ' Somme de texte pour la ligne 8 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(39, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F12").Value = texteConcatene ' Somme de texte pour la ligne 9 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(40, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F13").Value = texteConcatene ' Somme de texte pour la ligne 10 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(41, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F14").Value = texteConcatene ' Somme de texte pour la ligne 11 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(42, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F15").Value = texteConcatene ' Somme de texte pour la ligne 12 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(43, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F16").Value = texteConcatene ' Somme de texte pour la ligne 13 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(44, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F17").Value = texteConcatene ' Somme de texte pour la ligne 14 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(45, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F18").Value = texteConcatene ' Somme de texte pour la ligne 15 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(46, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F19").Value = texteConcatene ' Somme de texte pour la ligne 16 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(47, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F20").Value = texteConcatene ' Somme de texte pour la ligne 17 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(48, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F21").Value = texteConcatene ' Somme de texte pour la ligne 18 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(49, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F22").Value = texteConcatene ' Somme de texte pour la ligne 19 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(50, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F23").Value = texteConcatene ' Somme de texte pour la ligne 20 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(51, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F24").Value = texteConcatene ' Somme de texte pour la ligne 21 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(52, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F25").Value = texteConcatene ' Somme de texte pour la ligne 22 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(53, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F26").Value = texteConcatene ' Somme de texte pour la ligne 23 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(54, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F27").Value = texteConcatene ' Somme de texte pour la ligne 24 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(55, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F28").Value = texteConcatene ' Somme de texte pour la ligne 25 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(56, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F29").Value = texteConcatene ' Somme de texte pour la ligne 26 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(57, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F30").Value = texteConcatene ' Somme de texte pour la ligne 27 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(58, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F31").Value = texteConcatene ' Somme de texte pour la ligne 28 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(59, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F32").Value = texteConcatene ' Somme de texte pour la ligne 29 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(60, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F33").Value = texteConcatene ' Somme de texte pour la ligne 30 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(61, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F34").Value = texteConcatene ' Somme de texte pour la ligne 31 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(62, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F35").Value = texteConcatene ' Somme de texte pour la ligne 32 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(63, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F36").Value = texteConcatene ' Somme de texte pour la ligne 33 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(64, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F37").Value = texteConcatene ' Somme de texte pour la ligne 34 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(65, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F38").Value = texteConcatene ' Somme de texte pour la ligne 35 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(66, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F39").Value = texteConcatene ' Somme de texte pour la ligne 36 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(70, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("F40").Value = texteConcatene ' Somme de texte pour la ligne 6 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(97, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L10").Value = texteConcatene ' Somme de texte pour la ligne 7 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(98, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L11").Value = texteConcatene ' Somme de texte pour la ligne 8 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(99, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L12").Value = texteConcatene ' Somme de texte pour la ligne 9 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(100, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L13").Value = texteConcatene ' Somme de texte pour la ligne 10 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(101, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L14").Value = texteConcatene ' Somme de texte pour la ligne 11 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(102, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L15").Value = texteConcatene ' Somme de texte pour la ligne 12 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(103, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L16").Value = texteConcatene ' Somme de texte pour la ligne 13 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(104, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L17").Value = texteConcatene ' Somme de texte pour la ligne 14 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(105, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L18").Value = texteConcatene ' Somme de texte pour la ligne 15 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(106, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L19").Value = texteConcatene ' Somme de texte pour la ligne 16 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(107, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L20").Value = texteConcatene ' Somme de texte pour la ligne 17 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(108, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L21").Value = texteConcatene ' Somme de texte pour la ligne 18 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(109, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L22").Value = texteConcatene ' Somme de texte pour la ligne 19 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(110, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L23").Value = texteConcatene ' Somme de texte pour la ligne 20 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(111, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L24").Value = texteConcatene ' Somme de texte pour la ligne 21 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(112, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L25").Value = texteConcatene ' Somme de texte pour la ligne 22 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(113, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L26").Value = texteConcatene ' Somme de texte pour la ligne 23 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(114, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L27").Value = texteConcatene ' Somme de texte pour la ligne 24 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(115, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L28").Value = texteConcatene ' Somme de texte pour la ligne 25 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(116, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L29").Value = texteConcatene ' Somme de texte pour la ligne 26 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(117, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L30").Value = texteConcatene ' Somme de texte pour la ligne 27 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(118, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L31").Value = texteConcatene ' Somme de texte pour la ligne 28 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(119, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L32").Value = texteConcatene ' Somme de texte pour la ligne 29 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(120, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L33").Value = texteConcatene ' Somme de texte pour la ligne 30 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(121, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L34").Value = texteConcatene ' Somme de texte pour la ligne 31 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(122, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L35").Value = texteConcatene ' Somme de texte pour la ligne 32 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(123, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L36").Value = texteConcatene ' Somme de texte pour la ligne 33 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(124, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L37").Value = texteConcatene ' Somme de texte pour la ligne 34 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(125, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L38").Value = texteConcatene ' Somme de texte pour la ligne 34 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(126, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("L39").Value = texteConcatene ' Somme de texte pour la ligne 6 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(127, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O10").Value = texteConcatene ' Somme de texte pour la ligne 7 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(128, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O11").Value = texteConcatene ' Somme de texte pour la ligne 8 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(129, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O12").Value = texteConcatene ' Somme de texte pour la ligne 9 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(130, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O13").Value = texteConcatene ' Somme de texte pour la ligne 10 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(131, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O14").Value = texteConcatene ' Somme de texte pour la ligne 11 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(132, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O15").Value = texteConcatene ' Somme de texte pour la ligne 12 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(133, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O16").Value = texteConcatene ' Somme de texte pour la ligne 13 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(134, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O17").Value = texteConcatene ' Somme de texte pour la ligne 14 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(135, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O18").Value = texteConcatene ' Somme de texte pour la ligne 15 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(136, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O19").Value = texteConcatene ' Somme de texte pour la ligne 16 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(137, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O20").Value = texteConcatene ' Somme de texte pour la ligne 17 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(138, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O21").Value = texteConcatene ' Somme de texte pour la ligne 18 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(139, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O22").Value = texteConcatene ' Somme de texte pour la ligne 19 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(140, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O23").Value = texteConcatene ' Somme de texte pour la ligne 20 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(141, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O24").Value = texteConcatene ' Somme de texte pour la ligne 21 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(142, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O25").Value = texteConcatene ' Somme de texte pour la ligne 22 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(143, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O26").Value = texteConcatene ' Somme de texte pour la ligne 23 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(144, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O27").Value = texteConcatene ' Somme de texte pour la ligne 24 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(145, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O28").Value = texteConcatene ' Somme de texte pour la ligne 25 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(146, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O29").Value = texteConcatene ' Somme de texte pour la ligne 26 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(147, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O30").Value = texteConcatene ' Somme de texte pour la ligne 27 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(148, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O31").Value = texteConcatene ' Somme de texte pour la ligne 28 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(149, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O32").Value = texteConcatene ' Somme de texte pour la ligne 29 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(150, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O33").Value = texteConcatene ' Somme de texte pour la ligne 30 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(151, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O34").Value = texteConcatene ' Somme de texte pour la ligne 31 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(152, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O35").Value = texteConcatene ' Somme de texte pour la ligne 32 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(153, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O36").Value = texteConcatene ' Somme de texte pour la ligne 33 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(154, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O37").Value = texteConcatene ' Somme de texte pour la ligne 34 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(155, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O38").Value = texteConcatene ' Somme de texte pour la ligne 35 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(156, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O39").Value = texteConcatene ' Somme de texte pour la ligne 36 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(157, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("O40").Value = texteConcatene ' Somme de texte pour la ligne 6 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(158, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R10").Value = texteConcatene ' Somme de texte pour la ligne 7 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(159, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R11").Value = texteConcatene ' Somme de texte pour la ligne 8 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(160, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R12").Value = texteConcatene ' Somme de texte pour la ligne 9 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(161, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R13").Value = texteConcatene ' Somme de texte pour la ligne 10 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(162, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R14").Value = texteConcatene ' Somme de texte pour la ligne 11 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(163, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R15").Value = texteConcatene ' Somme de texte pour la ligne 12 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(164, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R16").Value = texteConcatene ' Somme de texte pour la ligne 13 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(165, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R17").Value = texteConcatene ' Somme de texte pour la ligne 14 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(166, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R18").Value = texteConcatene ' Somme de texte pour la ligne 15 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(167, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R19").Value = texteConcatene ' Somme de texte pour la ligne 16 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(168, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R20").Value = texteConcatene ' Somme de texte pour la ligne 17 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(169, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R21").Value = texteConcatene ' Somme de texte pour la ligne 18 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(170, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R22").Value = texteConcatene ' Somme de texte pour la ligne 19 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(171, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R23").Value = texteConcatene ' Somme de texte pour la ligne 20 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(172, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R24").Value = texteConcatene ' Somme de texte pour la ligne 21 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(173, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R25").Value = texteConcatene ' Somme de texte pour la ligne 22 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(174, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R26").Value = texteConcatene ' Somme de texte pour la ligne 23 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(175, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R27").Value = texteConcatene ' Somme de texte pour la ligne 24 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(176, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R28").Value = texteConcatene ' Somme de texte pour la ligne 25 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(177, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R28").Value = texteConcatene ' Somme de texte pour la ligne 26 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(178, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R29").Value = texteConcatene ' Somme de texte pour la ligne 27 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(179, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R30").Value = texteConcatene ' Somme de texte pour la ligne 28 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(180, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R31").Value = texteConcatene ' Somme de texte pour la ligne 29 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(181, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R32").Value = texteConcatene ' Somme de texte pour la ligne 30 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(182, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R33").Value = texteConcatene ' Somme de texte pour la ligne 31 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(183, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R34").Value = texteConcatene ' Somme de texte pour la ligne 32 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(184, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R35").Value = texteConcatene ' Somme de texte pour la ligne 33 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(185, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R36").Value = texteConcatene ' Somme de texte pour la ligne 34 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(186, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R37").Value = texteConcatene ' Somme de texte pour la ligne 35 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(187, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R38").Value = texteConcatene ' Somme de texte pour la ligne 36 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(187, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("R39").Value = texteConcatene ' Somme de texte pour la ligne 6 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(188, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U10").Value = texteConcatene ' Somme de texte pour la ligne 7 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(189, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U11").Value = texteConcatene ' Somme de texte pour la ligne 8 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(190, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U12").Value = texteConcatene ' Somme de texte pour la ligne 9 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(191, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U13").Value = texteConcatene ' Somme de texte pour la ligne 10 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(192, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U14").Value = texteConcatene ' Somme de texte pour la ligne 11 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(193, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U15").Value = texteConcatene ' Somme de texte pour la ligne 12 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(194, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U16").Value = texteConcatene ' Somme de texte pour la ligne 13 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(195, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U17").Value = texteConcatene ' Somme de texte pour la ligne 14 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(196, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U18").Value = texteConcatene ' Somme de texte pour la ligne 15 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(197, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U19").Value = texteConcatene ' Somme de texte pour la ligne 16 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(198, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U20").Value = texteConcatene ' Somme de texte pour la ligne 17 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(199, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U21").Value = texteConcatene ' Somme de texte pour la ligne 18 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(200, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U22").Value = texteConcatene ' Somme de texte pour la ligne 19 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(201, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U23").Value = texteConcatene ' Somme de texte pour la ligne 20 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(202, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U24").Value = texteConcatene ' Somme de texte pour la ligne 21 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(203, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U25").Value = texteConcatene ' Somme de texte pour la ligne 22 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(204, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U26").Value = texteConcatene ' Somme de texte pour la ligne 23 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(205, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U27").Value = texteConcatene ' Somme de texte pour la ligne 24 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(206, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U28").Value = texteConcatene ' Somme de texte pour la ligne 25 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(207, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U29").Value = texteConcatene ' Somme de texte pour la ligne 26 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(208, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U30").Value = texteConcatene ' Somme de texte pour la ligne 27 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(209, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U31").Value = texteConcatene ' Somme de texte pour la ligne 28 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(210, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U32").Value = texteConcatene ' Somme de texte pour la ligne 29 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(211, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U33").Value = texteConcatene ' Somme de texte pour la ligne 30 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(212, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U34").Value = texteConcatene ' Somme de texte pour la ligne 31 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(213, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U35").Value = texteConcatene ' Somme de texte pour la ligne 32 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(214, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U36").Value = texteConcatene ' Somme de texte pour la ligne 33 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(215, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U37").Value = texteConcatene ' Somme de texte pour la ligne 34 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(216, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U38").Value = texteConcatene ' Somme de texte pour la ligne 35 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(217, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U39").Value = texteConcatene ' Somme de texte pour la ligne 35 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(218, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("U40").Value = texteConcatene ' Somme de texte pour la ligne 6 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(219, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X10").Value = texteConcatene ' Somme de texte pour la ligne 7 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(220, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X11").Value = texteConcatene ' Somme de texte pour la ligne 8 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(221, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X12").Value = texteConcatene ' Somme de texte pour la ligne 9 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(222, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X13").Value = texteConcatene ' Somme de texte pour la ligne 10 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(223, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X14").Value = texteConcatene ' Somme de texte pour la ligne 11 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(224, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X15").Value = texteConcatene ' Somme de texte pour la ligne 12 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(225, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X16").Value = texteConcatene ' Somme de texte pour la ligne 13 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(226, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X17").Value = texteConcatene ' Somme de texte pour la ligne 14 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(227, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X18").Value = texteConcatene ' Somme de texte pour la ligne 15 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(228, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X19").Value = texteConcatene ' Somme de texte pour la ligne 16 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(229, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X20").Value = texteConcatene ' Somme de texte pour la ligne 17 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(230, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X21").Value = texteConcatene ' Somme de texte pour la ligne 18 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(231, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X22").Value = texteConcatene ' Somme de texte pour la ligne 19 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(232, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X23").Value = texteConcatene ' Somme de texte pour la ligne 20 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(233, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X24").Value = texteConcatene ' Somme de texte pour la ligne 21 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(234, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X25").Value = texteConcatene ' Somme de texte pour la ligne 22 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(235, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X26").Value = texteConcatene ' Somme de texte pour la ligne 23 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(236, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X27").Value = texteConcatene ' Somme de texte pour la ligne 24 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(237, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X28").Value = texteConcatene ' Somme de texte pour la ligne 25 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(238, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X29").Value = texteConcatene ' Somme de texte pour la ligne 26 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(239, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X30").Value = texteConcatene ' Somme de texte pour la ligne 27 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(240, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X31").Value = texteConcatene ' Somme de texte pour la ligne 28 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(241, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X32").Value = texteConcatene ' Somme de texte pour la ligne 29 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(242, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X33").Value = texteConcatene ' Somme de texte pour la ligne 30 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(243, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X34").Value = texteConcatene ' Somme de texte pour la ligne 31 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(244, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X35").Value = texteConcatene ' Somme de texte pour la ligne 32 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(245, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X36").Value = texteConcatene ' Somme de texte pour la ligne 33 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(246, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X37").Value = texteConcatene ' Somme de texte pour la ligne 34 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(247, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X38").Value = texteConcatene ' Somme de texte pour la ligne 35 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(248, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X39").Value = texteConcatene ' Somme de texte pour la ligne 36 texteConcatene = "" For i = 4 To 20 If Not IsEmpty(wsSource.Cells(249, i).Value) Then texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value End If Next i wsDest.Range("X40").Value = texteConcatene End Sub

Le 01/09/2023 à 16:11

Bonjour,

Nous serions le 1er avril ... j'aurai cru à une plaisanterie mais après vérification nous sommes bien le 1er septembre

Plus sérieusement comment voulez-vous que nous vous répondions avec une copie du code sur une seule ligne de quand même 68174 caractères ... Si vous voulez espérer une réponse, je pense qu'il serait préférable d'envoyer le fichier (anonymisé) Excel avec le code.

Cdlt,

Cylfo

Le 11/09/2023 à 08:30

Bonjour,

Ci-joint le code plus simple (sauf que je n'arrive pas à l'appliquer à tous les onglets du fichier excel :

Sub SommeTexte1()

    Dim wsSource As Worksheet, wsDest As Worksheet
    Dim i As Long
    Dim texteConcatene As String

 ' Récupère le nom de l'onglet source à partir de la feuille active
    Dim sourceSheetName As String
    sourceSheetName = ActiveSheet.Name

    ' Génère le nom de l'onglet de destination
    Dim destSheetName As String
    destSheetName = sourceSheetName & " planning"

    On Error Resume Next
    Set wsSource = ThisWorkbook.Sheets(sourceSheetName)
    On Error GoTo 0

    If wsSource Is Nothing Then
        MsgBox "Feuille source introuvable."
        Exit Sub
    End If

    ' Vérifie si la feuille de destination existe déjà, sinon créez-la
    On Error Resume Next
    Set wsDest = ThisWorkbook.Sheets(destSheetName)
    On Error GoTo 0

    If wsDest Is Nothing Then
        ThisWorkbook.Sheets.Add(After:=wsSource).Name = destSheetName
        Set wsDest = ThisWorkbook.Sheets(destSheetName)
    End If

    ' Copie le contenu de "planning vierge" et le colle dans la feuille de destination
    ThisWorkbook.Sheets("planning vierge").Cells.Copy Destination:=wsDest.Cells(1, 1)

    ' Somme de texte pour la ligne 6
    texteConcatene = ""
    For i = 4 To 20
        If Not IsEmpty(wsSource.Cells(6, i).Value) Then
            texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value
        End If
    Next i
    wsDest.Range("C10").Value = texteConcatene

    ' Somme de texte pour la ligne 7
    texteConcatene = ""
    For i = 4 To 20
        If Not IsEmpty(wsSource.Cells(7, i).Value) Then
            texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value
        End If
    Next i
    wsDest.Range("C11").Value = texteConcatene
' Enregistre la copie du nouvel onglet au format Excel
    Dim savePathExcel As String
    savePathExcel = "Q:\MIRE\Excel\" & destSheetName & ".xlsx"
    wsDest.Copy
    With ActiveWorkbook
        .SaveAs savePathExcel, fileFormat:=51
        .Close False ' Ferme le classeur sans enregistrer les modifications
    End With

    ' Enregistre la copie du nouvel onglet au format PDF
    Dim savePathPDF As String
    savePathPDF = "Q:\MIRE\Pdf\" & destSheetName & ".pdf"
    wsDest.ExportAsFixedFormat Type:=xlTypePDF, fileName:=savePathPDF

    ' Affiche un message pour indiquer que l'enregistrement est terminé
    MsgBox "Une copie du nouvel onglet a été enregistrée avec succès." & vbCrLf & _
           "Fichier Excel enregistré : " & savePathExcel & vbCrLf & _
           "Fichier PDF enregistré : " & savePathPDF, vbInformation, "Enregistrement terminé"

End Sub
Le 11/09/2023 à 11:51

Bonjour,

Si j'ai bien compris ce que tu veux faire, voir le code ci-dessous (non testé).

La concaténation des textes peut aussi être simplifiée (exemple) :

wsDest.Range("C10").Value = Application.TextJoin(" ", True, Range(Cells(6,4), Cells(6,23)))

Sub SommeTexte1()

   Dim wsSource As Worksheet, wsDest As Worksheet
   Dim i As Long
   Dim texteConcatene As String
   Dim sourceSheetName As String
   Dim destSheetName As String
   Dim savePathExcel As String
   Dim savePathPDF As String

   ' Parcours tous les onglets du classeur actif
   For Each wsSource In ActiveWorkbook
      ' Vérifie que l'onglet n'est ni un onglet de destination, ni le modèle
      If (Right(wsSource.Name, 9) <> " planning") And (wsSource.Name <> "planning vierge") Then

         ' Récupère le nom de l'onglet source à partir de l'onglet traité
         sourceSheetName = wsSource.Name

         ' Génère le nom de l'onglet de destination : /!\ le nom d'un onglet ne peut excéder 31 caractères
         destSheetName = Left(sourceSheetName, 22) & " planning"

         ' Vérifie si la feuille de destination existe déjà, sinon elle est créée
         On Error Resume Next
         Set wsDest = ThisWorkbook.Sheets(destSheetName)
         On Error GoTo 0

         If wsDest Is Nothing Then
            ThisWorkbook.Sheets.Add(After:=wsSource).Name = destSheetName
            Set wsDest = ThisWorkbook.Sheets(destSheetName)
         End If

         ' Copie le contenu de "planning vierge" et le colle dans la feuille de destination
         ThisWorkbook.Sheets("planning vierge").Cells.Copy Destination:=wsDest.Cells(1, 1)

         ' Somme de texte pour la ligne 6
         texteConcatene = ""
         For i = 4 To 20
            If Not IsEmpty(wsSource.Cells(6, i).Value) Then
               texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value
            End If
         Next i
         wsDest.Range("C10").Value = texteConcatene

         ' Somme de texte pour la ligne 7
         texteConcatene = ""
         For i = 4 To 20
            If Not IsEmpty(wsSource.Cells(7, i).Value) Then
               texteConcatene = texteConcatene & " " & wsSource.Cells(3, i).Value
            End If
         Next i
         wsDest.Range("C11").Value = texteConcatene

         ' Enregistre la copie du nouvel onglet au format Excel
         savePathExcel = "Q:\MIRE\Excel\" & destSheetName & ".xlsx"
         wsDest.Copy
         With ActiveWorkbook
            .SaveAs savePathExcel, FileFormat:=51
            .Close False ' Ferme le classeur sans enregistrer les modifications
         End With

         ' Enregistre la copie du nouvel onglet au format PDF
         savePathPDF = "Q:\MIRE\Pdf\" & destSheetName & ".pdf"
         wsDest.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePathPDF

         ' Affiche un message pour indiquer que l'enregistrement est terminé
         MsgBox "Une copie du nouvel onglet a été enregistrée avec succès." & vbCrLf & _
                "Fichier Excel enregistré : " & savePathExcel & vbCrLf & _
                "Fichier PDF enregistré : " & savePathPDF, vbInformation, "Enregistrement terminé"
      End If
   Next
End Sub

Cdlt,

Cylfo

Rechercher des sujets similaires à "macro tous onglets"