Bonsoir, Salut Steelson !
Une solution macro :
Sub EclaterDonnées()
Dim Tbl(), aa, dd, i%
aa = ActiveSheet.Range("A1").CurrentRegion
ReDim Tbl(UBound(aa) - 3, 8)
For i = 3 To UBound(aa)
Tbl(i - 3, 0) = aa(i, 1): Tbl(i - 3, 1) = aa(i, 2): Tbl(i - 3, 2) = aa(i, 3)
dd = Split(aa(i, 4), Chr(10))
Tbl(i - 3, 3) = Trim(Replace(Split(dd(0), ":")(0), "Pluie du", ""))
Tbl(i - 3, 4) = Val(Split(dd(0), ":")(1))
Tbl(i - 3, 5) = Val(Split(dd(1), ":")(1))
Tbl(i - 3, 6) = Val(Split(dd(2), ":")(1))
Tbl(i - 3, 7) = Trim(Split(dd(3), ":")(1))
Tbl(i - 3, 8) = Trim(Split(dd(4), ":")(1))
Next i
With ActiveSheet.Range("I3")
.Offset(2).Clear
Application.ScreenUpdating = False
With .Resize(UBound(aa) - 2, 9)
.Value = Tbl
.Borders.Weight = xlThin
End With
End With
End Sub
Cordialement.