Salut
J’ai écrit un code VBA pour répondre à ta demande. Tu peux le voir en effectuant un clic droit sur l’onglet de la feuille concernée puis en choisissant un texte du genre « Voir le code ».
Sinon le voici ci-dessous :
Option Explicit
Private Sub Worksheet_Activate()
Dim i As Integer, xx As Integer
Range("E3:F" & Rows.Count).ClearContents
For i = 3 To Range("C" & Rows.Count).End(xlUp).Row
On Error Resume Next 'Si la cellule est vide, on passe plus loin (mais donc également si la valeur n'est pas trouvée, ce qui ne devrait pas arriver, selon la demande du membre
xx = Application.WorksheetFunction.Match(Cells(i, 3), Sheets("Détails").Range("C:C"), 1)
If xx = Sheets("Détails").Range("C" & Rows.Count).End(xlUp).Row And Sheets("Détails").Range("C" & xx) <> Cells(i, 3) Then GoTo Etiquette
Cells(i, 5) = Sheets("Détails").Range("K" & xx)
Cells(i, 6) = Sheets("Détails").Range("L" & xx)
Etiquette:
Next i
End Sub
Si ça t’intéresse, tu peux voir le « Cours VBA » proposé sur ce site (regarde le ruban au-dessus de ces messages).
Bonnes salutations.