Résultats de la recherche

  1. Wisefun77

    Microsoft 365 Perfectionner une Macro

    Bonjour, Cette macro fonctionne bien. Sub todocopy() Worksheets("Suivi").UsedRange.Copy Worksheets("TODO").Paste _ Worksheets("TODO").Range("A1") Application.CutCopyMode = False Debut = 3 Fin = 990 ColNb = 1 For i = Debut To Fin If Cells(i, ColNb).Value = "TO DO" Then Cells(i...