Sub test()
'
Dim Ligne As Long
Dim Texte As String, TexteLu As String
Ligne = 1
While Cells(Ligne, 1).Value <> "" ' IsNumeric(Cells(Ligne, 1).Value)
Texte = Cells(Ligne, 1).Value
Ligne = Ligne + 1
If IsError(Cells(Ligne, 1).Value) Then
TexteLu = "."
Else
TexteLu = Cells(Ligne, 1).Value
End If
While TexteLu <> ""
Texte = Texte & " " & TexteLu
Ligne = Ligne + 1
If IsError(Cells(Ligne, 1).Value) Then
TexteLu = "."
Else
TexteLu = Cells(Ligne, 1).Value
End If
Wend
Ligne = Ligne + 1
Debug.Print Texte
Wend
End Sub