Public ValeurVolée
Sub Traça(NomFeuille, AdresseCellule, ValeurCellule)
With Sheets("Tracabilité")
DL = 1 + .Range("A65500").End(xlUp).Row ' Dernière ligne
.Cells(DL, 1) = Date
.Cells(DL, 2) = TimeValue(Now)
.Cells(DL, 3) = Rôle
.Cells(DL, 4) = NomFeuille
.Cells(DL, 5) = AdresseCellule
.Cells(DL, 6) = ValeurVolée
.Cells(DL, 7) = ValeurCellule
End With
End Sub