Bonjour Boisgontier
J'ai essayé de reprendre votre code mais sans succès … Pouvez-vous m'aider ?
Sub Ajout_Composants_Manquants_PDP()
Dim DernLigne As Long
DernLigne = Sheets("Synth?se_Simul_Appro_par_OF").Range("A" & Rows.Count).End(xlUp).Row
Dim DernLigne1 As Long
DernLigne1 = Sheets("Plan de Charge").Range("S" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For Each c In Sheets("Plan de Charge").Range("$S$5:$S$" & DernLigne1)
p = Application.Match(c, Application.Index(Sheets("Synth?se_Simul_Appro_par_OF").Range("$A$2:$B$" & DernLigne), , 1), 0)
If Not IsError(p) Then
Sheets("Synth?se_Simul_Appro_par_OF").Range("$A$2:$B$" & DernLigne).Cells(p, 2).Copy Target.Offset(, 82)
End If
Next c
Application.ScreenUpdating = True
'Sheets("Plan de Charge").Range("Tableau_Lancer_la_requ?te_?_partir_de_excalibur[NUMERO_OFDA]").Select
End Sub
Merci d'avnce