Sub ENCODER()
Application.ScreenUpdating = False
'mot = UserForm5.Label34
For feuille = 3 To Sheets.Count
Sheets(feuille).Activate
Set Cherche = Cells.Find(What:=mot, LookAt:=xlWhole)
If Not Cherche Is Nothing Then
Cherche.Activate
With ActiveCell
If UserForm5.TextBox1 <> "" Then
'.Offset(2, 1) = UserForm5.Label2.Caption
.Offset(2, 1) = UserForm5.TextBox1.Value
'.Offset(2, 3) = "0:" & UserForm5.TextBox2.Value
'.Offset(2, 3).NumberFormat = "mm:ss"
End If