Sub Selectionner()
Dim crit1$, crit2, ncol%, c As Range, sel As Range
crit1 = "DET" 'à adapter
crit2 = "MON" 'à adapter
ncol = 9 'à adapter
Set c = Cells.Find(crit1, , xlValues, xlPart)
If c Is Nothing Then Set c = Cells.Find(crit2)
If c Is Nothing Then Exit Sub
For Each c In Intersect(c.EntireColumn, ActiveSheet.UsedRange)
If InStr(CStr(c), crit1) + InStr(CStr(c), crit2) Then _
Set sel = Union(IIf(sel Is Nothing, c.Resize(, ncol), sel), c.Resize(, ncol))
Next
If Not sel Is Nothing Then sel.Select
End Sub