Sub test()
Dim nRow As Long, i As Long
Dim YearB As Integer
Dim CompD As String
nRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To nRow
YearB = Cells(i, 2)
Select Case YearB
Case 2009, 2010
Select Case Left(Cells(i, 4), 1)
Case "6", "7"
CompD = Left(Cells(i, 4), 1)
Case "9"
CompD = Right(Left(Cells(i, 4), 2), 1)
Case Else
GoTo line1
End Select
Select Case CompD
Case "6"
If Cells(i, 11) = "Batiments" Or Cells(i, 11) = "Terrains" Then
Cells(i, 12) = Cells(i, 9)
Else
Cells(i, 12) = Cells(i, 11)
End If
Case "7"
Cells(i, 12) = Cells(i, 11)
End Select
Case 2011
Cells(i, 12) = Cells(i, 9)
End Select
line1:
Next i
End Sub