Sub Macro2()
'
' Macro2 Macro
'
'
Range("P2").Select
ActiveCell.FormulaR1C1 = _
"=" & Chr(10) & "IF(ISNUMBER(SEARCH(""AVIATION"",RC[-1])),""AVIATION""," & Chr(10) & "IF(ISNUMBER(SEARCH(""MOTO"",RC[-1])),""MOTO""," & Chr(10) & "IF(ISNUMBER(SEARCH(""MOTEUR"",RC[-1])),""MOTEUR""," & Chr(10) & "IF(ISNUMBER(SEARCH(""HYDRAULIQUE "",RC[-1])),""HYDRAULIQUE ""," & Chr(10) & "IF(ISNUMBER(SEARCH(""TRANSMISSION"",RC[-1])),""TRANSMISSIONS""," & Chr(10) & "IF(ISNUMBER(SEARCH(""MULTIFONCTIONNELLE"",RC[-1])),""MULTIFONCTIONNELLE""," & Chr(10) & "IF(ISNUMBER" & _
"""GRAISSE"",RC[-1])),""GRAISSE""," & Chr(10) & "IF(ISNUMBER(SEARCH(""GREASE"",RC[-1])),""GRAISSE""," & Chr(10) & "IF(ISNUMBER(SEARCH(""ADBLUE"",RC[-1])),""ADBLUE""," & Chr(10) & "IF(ISNUMBER(SEARCH(""COOL"",RC[-1])),""LIQUIDE REFROIDISSEMENT""," & Chr(10) & "IF(ISNUMBER(SEARCH(""FREIN"",RC[-1])),""FREIN""," & Chr(10) & "IF(ISNUMBER(SEARCH(""BOUTIQUE"",RC[-1])),""LAVE GLACE""," & Chr(10) & """IND""))))))))))))"
End Sub