Nickel, merci à toi, mais je vais revenir vers toi sur ce sujet tout à l'heure, merci
Le résultat de ta formule concerne une adaptation sur mon fichier source .
Le fichier est beaucoup trop lourd et il y a confidentialité,
j'ai cette macro qui fonctionne très bien à une exception prête, lors du "PasteSpecial", il ne prend pas l'image en compte, est-ce possible d'y intégré le collage avec l'image sans changer les valeurs dans les cellules
Merci à toi
Sub enregistrement2()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
nm = ActiveWorkbook.Name
tb = Split(nm, ".")
If Left(nm, 2) = "23" Then rep1 = ActiveWorkbook.Path Else rep1 = ActiveWorkbook.Path & "\SAUVEGARDE-OT\2023"
rg = tb(0)
Nom = Range("A4").Value & ".xlsm"
rep1 = rep1 & "\" & Nom
A = Left(Nom, 2): ActiveWorkbook.SaveAs rep1
Range("A4:S4").Copy
Workbooks("OT-MAINTENANCE.xlsm").Activate
Set celluletrouvee = Sheets("2023").Range("A3:A1000").Find(rg, lookat:=xlWhole)
If celluletrouvee Is Nothing Then MsgBox "Ligne non trouvée": Exit Sub
ligne = celluletrouvee.Row
Range("A" & ligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub