Dim Range_Intersect As Range
Set Range_Intersect = Application.Intersect(Selection, Range('I:DQ'))
If Range_Intersect Is Nothing Then
MsgBox 'Pas de plage commune entre ' & Selection.Address & ' et ' & Range('I:DQ').Address
Else
Range_Intersect.Select
End If