Bonjour,
Si les données importées commencent à la cellule A1 la macro suivante vous fera ça aux petits oignons !
Sub Galopin()
Dim iR&, iTR&, rng As Range
Set rng = [A1].CurrentRegion
rng.VerticalAlignment = xlTop
iR = rng.Rows.Count
For iTR = iR To 2 Step -1
If Not IsDate(Cells(iTR, 1)) Then
Cells(iTR - 1, 3).Value = Cells(iTR - 1, 3).Value & Chr(10) & Cells(iTR, 3).Value
Rows(iTR).Delete
End If
Next
End Sub
Si les données sont placées ailleurs il faut revoir en fonction du contenu de la feuille.
A+