Sélection d'une plage de cellules

Sub test()
    Dim MaCellule As Range
    On Error Resume Next
    Set MaCellule = Range("D:D").Find(what:="ValeurCherchée", _
            LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
    Range(Range("A1"), MaCellule).Select
    If Err.Number > 0 Then MsgBox "Recherche infructueuse"
    On Error GoTo 0
End Sub

Sub test()
Dim MaCellule As Range
Set MaCellule = Range("D:D").Find(what:="ValeurCherchée", _
    LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
If Not MaCellule Is Nothing Then
    Range(Range("A1"), MaCellule).Select
Else
    MsgBox "Recherche infructueuse"
End If
End Sub