Execution macro trop lente

Bonjour,

En essayant d'executer une macro par le bouton "envoyer vers tableau" j'ai remarqué que cela prend 13 secondes avant de se faire. comment pourrais-je ameliorer ce temps voire peutêtre executer la macro instanténement s'il vous plait?,

je vous joint mon fichier avec les case en blanc à remplir, les cases hachurer à ne pas remplir et les cases "technologie", "site", "départ" et "caisson/phase" en liste de donnée (a choisir donc entre les choix de la liste).

Je vous remercie par avance

Bonjour

Il y avait, je pense, trop de select inutiles

A voir

Dis-moi

Et bien merci beaucoup!

ça fonctionne parfaitement bien.

Passez une bonne soirée

Bonjour

pour copier une colonne en Ligne

Voila une réponse a toi de voir

A+

Maurice

Sub Macro1()
Sheets("Fiche CR A REMPLIR").Select
If Range("B3").Value = "" Then MsgBox "PasBon": Exit Sub
Set Sh = Sheets("TABLEAU SUIVI SF6")
'Sh.Visible = -1
Lig = Sh.Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("B3:B13").Copy
        Sh.Range("A" & Lig).PasteSpecial xlPasteValues, , , True
    Range("B3:B13").ClearContents
Application.CutCopyMode = False
End Sub