Sub initia()
With Sheets(1).Activate
coltoto = (Sheets(1).Cells.Find(("TOTO"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Column)
End With
End Sub