Sub RechercheDate()
Application.OnTime Now + TimeValue("00:00:10"), "Enregistrer" 'toutes les 10s
End Sub
Sub Enregistrer()
'Initialisation des variables
Dim nomfichiersuivi As String
Dim DerniereColonne As Long
nomfichiersuivi = ActiveWorkbook.Name ' affectation nom du fichier de suivi courant
With Workbooks(nomfichiersuivi).Worksheets("Suivi")
'recherche la première cellule vide sur la ligne 10 du tableau et y enregistre la valeur de prod C16
Cells(10, 54).End(xlToLeft).Offset(0, 1).Value = .Range("C16")
End With
If ThisWorkbook.Worksheets("Suivi").Range("A1") = 1 Then 'si D1 est égal à 1 la recherche fonctionne
RechercheDate
End If
End Sub