Salut Ray,
en attendant ta réponse, c'est ainsi que j'avais opéré! 8)
Public Sub cmdGo_Click()
'
iRow = IIf(Cells(1, 3) = "", 1, Range("C21").End(xlUp).Row + 1)
Range("C" & iRow & ":V" & iRow).Value = WorksheetFunction.Transpose(Range("A1:A20"))
Range("A1:A20").ClearContents
'
If iRow > 1 Then
Range("C22:V22").Insert shift:=xlDown
Range("C22:V22").Borders.LineStyle = 1
For x = 3 To 22
iFlag = Cells(iRow, x) - Cells(iRow - 1, x)
If iFlag <> 0 Then
Cells(22, x) = IIf(iFlag < 0, CStr(iFlag), "'+" & CStr(iFlag))
Cells(22, x).Font.Color = IIf(iFlag < 0, RGB(255, 0, 0), RGB(60, 220, 40))
Else
Cells(22, x) = "0"
End If
Next
End If
If iRow = 20 Then
Range("C1:V1").Value = Range("C20:V20").Value
Range("C2:V20").ClearContents
End If
'
End Sub
Bonne chance!
A+