- Salut Pascal, merci de l'attention que tu portes à mon problême.
J'ai créé une petite macro qui semble fonctionner.
Peux-tu me donner ton avis?
Sub TEST()
Dim nomsheet As String
Sheets("Personnel").Range("A1", Range("A1").End(xlDown)).Select
For Each Cell In Selection
Cell.Select
nomsheet = ActiveCell.Value
If ActiveCell.Offset(0,5).Value <>Sheets(nomsheet).Range("F4").Value Then
ActiveCell.Offset(0,5).Value = Sheets(nomsheet).Range("F4").Value
End If
Next Cell
End Sub