with

Bonjour à tous Encore besoin de votre aide. Voici mon code: Sub test() Dim x As Long For x = 1 To 250 Step 3 With Worksheets("Feuil1").Cells(x, "B" & x) .Copy End With Next x Ce que j'essaie de faire : Couper La date qui se trouve en B et la coller en A+1 Ensuite supprimer la ligne...

Bonjour, J'ai un code placé dans normal qui me dit variable de bloc with non définie à l'execution et voici le code quelqu'un aurait t-il une solution svp ? Sub rapport_provisoire_entete2() ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.Find.ClearFormatting...