Private Sub UserForm_Initialize()
Dim arT, numéro As Date, ctrouv As Range, j As Long, i As Long, ligne As Long, col As Integer
arT = Array("Ensoleillé", "Nuageux", "Pluie", "Neige", "Tempête")
Application.ScreenUpdating = False
Date1 = Date: numéro = Date: Heure1 = Format(Time, "hh:mm")
With Temp1
For j = 0 To 4
.AddItem arT(j)
Next
End With
Set ctrouv = _
Sheets("Objectif").Range("A1:B10000").Find(numéro, lookat:=xlWhole)
ligne = ctrouv.Row: col = ctrouv.Column
TextBox7.Value = ctrouv.Offset(, 1).Value
For i = 1 To 3
Me.Controls("TextBox" & i).Value = ctrouv.Offset(, i + 1).Value
Next
Application.ScreenUpdating = True
End Sub