re
En jetant un coup d'œil à ton fichier : le problème vient du code qui est écrit dans une feuille (celle du boton) qui ne correspond ni à la Source ni à la Cible.
Essaie
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Dim L As Integer, Lg2 As Long, De As Worksheet
Set De = Sheets("SERIEM") ‘source
With Worksheets("DIFFERENCE_PA") ‘Cible
.[A:B].Clear
L = De.UsedRange.Rows.Count
For Lg2 = L To 2 Step -1
De.Range("S" & Lg2).Value = "=IF(ISNA(VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],7,FALSE)/VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],6,FALSE)/RC[-8]),""-"",VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],7,FALSE)/VLOOKUP(RC[-13],BL_EPURE!C[-16]:C[4],6,FALSE)/RC[-8])"
Next
De.Columns(7).Copy .Columns(1)
.Columns(2).Resize(L) = De.Columns(19).Value
For Lg2 = L To 2 Step -1
If .Cells(Lg2, 2) = "-" Then .Rows(Lg2).Delete
Next
End With
End Sub
J’ai supposé que tu voulais copier les valeurs et non les formules (pas adaptées à la cible)
Désolé pour le code mais je n'arrive plus à Insérer...