Option Explicit
Sub modele_like()
Dim chaine As String
Dim test As Boolean
Dim cellule As Range
Dim temp As Variant
Dim x As Long
chaine = "[I, O, i, o]*"
x = Range("a" & Rows.Count).End(xlUp).Row
For Each cellule In Range("a1:a" & x)
test = cellule.Value Like chaine
temp = test
If test = False Then _
cellule.Offset(0, 2).Value = cellule.Offset(0, 0).Value
Next cellule
End Sub