Problème copier coller Worksheet_Activate

Bonjour à tous,

J'ai un problème de copier coller via macro dû au "Worksheet_Activate"de ma feuille ("Planning") . Y a-t'il moyen de contourner le problème.Merci

Voici le code:

Sheets("Planning").Range("B9").Select
    Columns("B:B").ClearContents
    Sheets("Renseignement").Range("F3:F" & dernligne).Copy
    Sheets("Planning").Range("B9").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

Bonjour,

aurais-tu un petit fichier à nous transmettre ? car un bout de code ok, mais j'ai aucun soucis avec le code que tu me pose là quand je le test sur un document vierge.

Voici le fichier.

Sheets("Planning").Select
     Range("B9").Select
    Columns("B:B").ClearContents
    Sheets("Renseignement").Range("F3:F" & dernligne).Copy
    Sheets("Planning").Range("B9").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

Voilà,

ça supprime le bug de ta macro (du moins de mon coté)

Merci Avie, ça fonctionne parfaitement.