Macro...bizarre

Bonjour le forum

J'ai une macro depuis quelques jours qui ne fonctionne pas complétement, seule la recopie de données dans une autre feuille ne s'effectue pas.

J'ai controlé le code avec celui d'origine, réaffecter le bouton a la macro rien n'y fait.

J'ai chargé le fichier sur mon portable et la elle fonctionne correctement.

De quoi cela peut-il bien venir

merci

Bonjour

je pense que personne ne peu vous aider s'il n'y a pas de fichier témoin

( merci de vider les donner perso)

re

voici la macro

Sub Tft()

' Tft Macro
 Dim n%, i%, PlTft

    With ActiveSheet
        n = .Cells(.Rows.Count, 12).End(xlUp).Row: i = 1
        .Range("A2:L" & n).Sort key1:=.Range("L2"), order1:=xlDescending, Header:=xlNo
        Do While .Cells(i + 1, 12) >= 35
            i = i + 1
        Loop
        If i > 1 Then
            i = IIf(i <= n, i, n)
            PlTft = .Range("A2:L" & i).Value
        End If
        .Range("A2:J" & n).ClearContents
        Calculate
    End With
    If i = 1 Then Exit Sub
    With Worksheets("Feuil4")
        n = .Cells(.Rows.Count, 12).End(xlUp).Row + 1: i = UBound(PlTft, 1)
        .Range("A" & n).Resize(i, 12) = PlTft
        .Activate
    End With

    Range("M301").Select
End Sub

merci

ben ....

ca fonctionne je pense normalement

ci joint le fichier

a vous relire

Bonsoir,

Aucune raison que cette macro ne fonctionne pas si le fichier dans lequel elle est exécutée est conforme aux éléments qu'elle utilise... même si sans le fichier on ne peut en évaluer toutes les incidences.

Et ce que ne gâche rien, bien au contraire, c'est qu'elle est parfaitement écrite, fait plaisir à lire !

[à une ligne près, la dernière, avant End Sub, qui n'est pas à sa place et ne ne fait sûrement pas partie de la macro d'origine].

Cordialement.