Option Explicit Sub test() Dim plage As Range Dim r As Range Set plage = Range("A1:B15") 'adapter plage de recherche For Each r In plage If r.Value > 15 Then 'adapter la recherche Range(r.Address).Select MsgBox r.Address Exit For End If Next r End Sub
31 mars 2021 à 16:45