Rechercher une valeur et sélectionner ligne

sub rec_sel()
      dim cel as range
      for each cel in range("A5:A12")
           if instr(cel,"Georges")>0 then ' tu peux remplacer "Georges" par une refference cellule : Range("B1")
              range("C" & cel.row & ":AG" & cel.row).select
              exit for
           end if
      next 
end sub 

=DECALER($C$6:$G$6;Equiv("*" & $B$1 & "*";$A$7:$A$12;0);0)