Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("K5").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNUMBER(SEARCH(""PR"",R6C11)),""Procédé"",IF(ISNUMBER(SEARCH(""PG"",R6C11)),""Procédure Générale"",IF(ISNUMBER(SEARCH(""FI"",R6C11)),""Fiche / Document d'enregistrement"",IF(ISNUMBER(SEARCH(""MO"",R6C11)),""Mode Opératoire"",""""))))"
Range("K6").Select
End Sub