Re : Utiliser méthode Find
c'est une bonne idée, PierreJean,
donc essaye peut-être :
Set Ct = ws.Cells.Find(What:="température", After:=Activesheet.Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)