Macro IF[ valeur] dans colonne 1, insérer [valeur2] dans colonne 2

Sub Met11()
Dim i as long
    For i = 2 To 9
        If CStr(Range("A" & i).Value) Like "*[12]2[23]*" Then
            Range("C" & i).Value = 11
        End If
    Next i
End Sub

Sub Test()
Dim Feuille As Worksheet, Cellule As Range
For Each Feuille In ThisWorkbook.Worksheets
With Feuille
For Each Cellule In .Range("A2:A" & .Range("A1048576").End(xlUp).Row)
If Cellule Like "*123*" Or Cellule Like "*223*" Or Cellule Like "*222*" _
    Then Cellule.Offset(0, 2) = 11
Next
End With
Next
End Sub

Sub test()
Dim Liste(), Tablo()
Liste = Array(123, 223, 222)
For Each F In Worksheets
    Tablo = F.Range(F.Cells(1, 1), F.Cells(Rows.Count, 3).End(xlUp)).Value
    For i = 2 To UBound(Tablo, 1)
        For j = LBound(Liste) To UBound(Liste)
            If InStr(Tablo(i, 1), Liste(j)) <> 0 Then Tablo(i, 3) = 11: Exit For
        Next j
    Next i
    F.Cells(1, 1).Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
Next F
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'si le changement a lieu ailleurs que dans la colonne A, sort de la procédure
If Target.Column <> 1 Then Exit Sub
'si la cellule de la colonne A est effacée, efface la cellule de la colonne C
If Target.Value = "" Then Target.Offset(0, 2).Value = ""
'si la cellule de la colonne A contient "123" ou "223" ou "222", la cellule de la colonne C prend la valeur "11"
If Target.Value Like "*123*" Or Target.Value Like "*223*" Or Target.Value Like "*222*" Then Target.Offset(0, 2).Value = "11"
End Sub