[VBA] rechercher valeur dans ligne puis copier en fonction

[actaris51]

Bonjour à tous,

J'ai un petit souci en VBA.
J'ai un fichier du type de celui que je vous ai mis ne piece jointe.

J'ai deux feuilles : Une "Entree" et une "Sortie"
Mon objectif : allez chercher un changement de valeur dans une ligne de la feuille "Entree", regarder la valeur de la premiere ligne associee (qui correspond au temps), puis écris une phrase type (par exemple "toto") dans la colonne associee de ma feuille "Sortie". La colonne associée étant la valeur la plus proche, c'est là mon problème.

Par exemple, la ligne 2 change de valeur a la troisieme colonne, qui correspond à un temps de 0,375.

Donc là j'ai mon code qiu me trouve mon temps de 0,375:

Sub triggers()
With Worksheets("Entree").Range("a2:g2")
Set c = .Find("1", LookIn:=xlValues)
If Not c Is Nothing Then
numcolonne = c.Column
Cells(1, numcolonne).Select
End If
End With
End Sub

Le problème c'est la suite, il faut aller dans la feuille sortie, et ecrire "toto" dans la ligne 2 de la colonne H ou I, peu importe (car 0,375 est entre 0,35 et 0,4).

C'est cette partie que je n'arrive pas à faire.

Pouvez vous m'aider ?

Merci !