Bonjour,
Par macro éventuellement associée à votre logo de feuille d'audit. Cependant, la position du résultat est-elle susceptible de changer ?
Sub RESULTAT()
Dim LIG%, COL%, DAT As Date
With Worksheets("Resultats")
LIG = .Columns(2).Find(What:=Worksheets("Feuil1").Range("B5")).Row
COL = .Rows(2).Find(What:=DateSerial(Year(Worksheets("Feuil1").Range("F5")), Month(Worksheets("Feuil1").Range("F5")), 1)).Column
.Cells(LIG, COL) = Worksheets("Feuil1").Range("D19")
End With
End Sub
Cdlt,