Exporter d'une feuille Excel à une autre

Bonjour,

Ci dessous un code qui permet d'exporter des données d'une feuille à une autre.

Ce code fonctionnait jusqu'à présent puis, plus rien ?

Si quelqu'un d'entre vous aurait une petite idée

Merci d'avance

Sub Exporter()
Worksheets("data").Unprotect ("123")
'Copier/coller sous conditions
derl = Worksheets("Data").Cells(Rows.Count, 19).End(xlUp).Row
Application.ScreenUpdating = False
    Set fs = Worksheets("Data")
    Set fd = Worksheets("Courrier")
    For ln = 2 To derl
        If fs.Range("S" & ln) = "Programmé" Then
        lgn = Worksheets("courrier").Cells(Rows.Count, 2).End(xlUp).Row + 1
        fs.Range("A" & ln & ":D" & ln).Copy
        fd.Range("B" & lgn).PasteSpecial xlPasteValues
        fs.Range("G" & ln & ":H" & ln).Copy
        fd.Range("F" & lgn).PasteSpecial xlPasteValues
        fs.Range("K" & ln & ":R" & ln).Copy
        fd.Range("H" & lgn).PasteSpecial xlPasteValues
        End If
    Next ln
fd.Range("B22").CurrentRegion.Borders.Weight = xlThin
fd.Select
End Sub

Bonjour nananinanana, bonjour le forum,

Ce code fonctionnait jusqu'à présent puis, plus rien ? Plus rien ne signifie rien lui non plus. Tu pourrais être plus explicite !... Ça plante ? Ça passe mais rien ne se passe ? Bref, autre chose que : plus rien...

Sinon, il te faut faire tourner ta macro pas à pas (avec la touche [F8] et vérifier la valeur des variables (derl, lg et lng)

D'ailleurs, tu ne les as pas déclarées. Ce n'est pas obligatoire mais c'est toujours mieux pour faire comprendre son code à une autre personne.

Ensuite, tu utilise la variable lng qui elle, en plus, n'est pas définie. À moins quelle le soit ailleurs ?! mais où...

Les variables sont déclarées dans un option explicit que j'ai oublié de recopier.

Il me semblé avoir défini la variable lgn ligne 9 ?

Finalement il refonctionne, allez savoir comment ?

Merci tout de même pour le temps accordé.