Sub Macro1()
Dim Plage As Range, R As Range, C As Range, Cel As Range
Set Plage = Range("g7:g" & Range("f" & Rows.Count).End(xlUp).Row)
For Each R In Plage
Set C = R.Offset(, -1)
Set Cel = R.Offset(, 0)
Select Case C
Case "11 01"
Select Case Cel
Case "DESSERT"
Cel.Offset(, 1) = "DESSERT"
Case "CLASSIQUE"
Cel.Offset(, 1) = "SALADES"
Case "SANDWICHS"
Cel.Offset(, 1) = "SANDWICHS"
Case "SALADES"
Cel.Offset(, 1) = "SALADES"
End Select
Case "11 03"
Select Case Cel
Case "PLATS CUISINES"
Cel.Offset(, 1) = "PLATS"
Case "CHEFS"
Cel.Offset(, 1) = "PLATS CHAUDS"
End Select
Case "17 27"
Select Case Cel
Case "CEREALES PETIT FORMAT"
Cel.Offset(, 1) = "SALADES"
End Select
Case "17 13"
Select Case Cel
Case "CLUB"
Cel.Offset(, 1) = "SANDWICHES"
End Select
End Select
Next R
End Sub