test du contenu d'une colonne

=SI(ESTNUM(CHERCHE("dw";$B2));"oui";"non")

Sub contient()
Dim j As Long, c As Range
j = Range("B65536").End(xlUp).Row
For Each c In Sheets("DW").Range("B2:B" & j)
    If c.Value Like "*DW*" Then
        c.Offset(0, 1).Value = "OUI"
        Else
        c.Offset(0, 1).Value = "Non"
    End If
Next c
End Sub

Sub contient()
Dim i As Long, j As Long, c As Range
j = Range("B65536").End(xlUp).Row
 
    For Each c In Sheets("DW").Range("B2:B" & j)
        If c.Value Like "*DW*" Then
 
           c.Offset(, 1).Value = "OUI"
 
        Else
            c.Offset(, 1) = "Non"
        End If
    Next
End Sub

Sub contient()
    Dim c As Range
    For Each c In Sheets("DW").Range("B2:B" & Range("B65536").End(xlUp).Row)
        c.Offset(, 1) = c Like "*DW*"
    Next
End Sub

Sub contient()
    Dim c As Range
    For Each c In Sheets("DW").Range("B2:B" & Range("B65536").End(xlUp).Row)
        c.Offset(, 1) = IIf(c Like "*DW*", "Oui", "Non")
    Next
End Sub