Sub prod()
Dim n As Long
n = 2
Do While Not IsEmpty(Range("G" & n))
Range("A" & n) = Range("F" & n) & CDbl(Range("G" & n))
'If Range("H" & n) = "non comptab prod" Then
'Range("F" & n) = Range("D" & n)
'Range("E" & n) = Range("C" & n)
'Else
' If Range("H" & n) = "post-prod" Then
' Range("F" & n) = Range("F" & n - 1)
' Range("E" & n) = Range("E" & n - 1)
'
'End If
'End If
n = n + 1
Loop
End Sub