Salut David,
ainsi ?
Un double-clic en 'Donnees externes' démarre la macro.
If Cells(x, 1) <> "" Then
If Cells(x, 1) <> sDate Or Cells(x, 2) <> sHour Then
iRowT = iRowT + 1
sDate = Cells(x, 1)
sHour = Cells(x, 2)
.Range("F" & iRowT).Resize(1, 6).Value = Range("A" & x).Resize(1, 6).Value
iCol = 12
End If
If .Cells(1, iCol) = "" Then
.Cells(1, iCol) = "Intitulé " & (iCol / 4) - 2
.Cells(2, iCol) = Cells(x, 7)
.Cells(1, iCol).Resize(1, 4).Merge
.Cells(2, iCol).Resize(1, 4).Merge
End If
sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)
.Range(sCol & iRowT).Resize(1, 4).Value = Range("H" & x).Resize(1, 4).Value
iCol = iCol + 4
End If
A+