Private Sub Worksheet_Change(ByVal Target As Range)
If Time = #6:00:00 PM# Then
'ton code pour renvoyer la température dans la cellule A1 de la feuille 1
If Not Cells(1, 1).Value = '' Then
With Sheets('feuil2')
.Range('A65536').End(xlUp).Offset(1, 0).Value = Sheets('feuil1').Cells(1, 1).Value
.Range('B65536').End(xlUp).Offset(1, 0).Value = Date
End With
End If
End If
End Sub