Selection de colonnes par VBA

Dim valeurCherchée As String, c As Range
valeurCherchée = "toto"
Set c = Range("3:3").Find(what:=valeurCherchée, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then c.EntireColumn.Resize(, 8).Select

Dim Plage As Range
Set Plage = ActiveSheet.Range("3:3").Find(what:=valeurCherchée, LookIn:=xlValues, lookat:=xlWhole).EntireColumn
Set Plage = Plage.Resize(, 8)

Set Plage = ActiveSheet.Range("3:3").Find(what:=valeurCherchée, LookIn:=xlValues, lookat:=xlWhole)
If Not Plage Is Nothing Then Set Plage = Plage.EntireColumn.Resize(, 8)