Sub Trouver()
Phrase = "paramétrer télé"
Lmax = 1000000 ' Ligne max où rechercher, peut être adapté
For Each F In Worksheets
With Sheets(F.Name)
If Application.CountIf(.[A:ZZ], Phrase) > 0 Then
C = 1: Nmax = 1000
While Application.CountIf(.Range(.Cells(1, C), .Cells(Lmax, C)), Phrase) = 0
C = C + 1
Wend
L = Application.Match(Phrase, .Range(.Cells(1, C), .Cells(Lmax, C)), 0)
.Select
.Cells(L, C).Select
Exit Sub
End If
End With
Next F
End Sub