Pb macro

Bonjour,

je suis à la recherche d'une solution pour ma macro qui fonctionnait bien auparavant mais qui, depuis quelques modifs, me sort un msg d'erreur 1004....

LA voici:

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 18/12/2012 par X
'
' Touche de raccourci du clavier: Ctrl+r
'
    Range("H3:U6,M8:Q10,AE8:AI8,B13:D14,L13:N14,AC12:AG14,AI12:AL13").Select
    Range("AI12").Activate
    ActiveWindow.SmallScroll Down:=9
    Range( _
        "H3:U6,M8:Q10,AE8:AI8,B13:D14,L13:N14,AC12:AG14,AI12:AL13,E17:G58,Z17:AB20,Z23:AB58" _
        ).Select
    Range("Z23").Activate
    ActiveWindow.SmallScroll Down:=9
    Range( _
        "H3:U6,M8:Q10,AE8:AI8,B13:D14,L13:N14,AC12:AG14,AI12:AL13,E17:G58,Z17:AB20,Z23:AB58,G60:U60,B61:U66" _
        ).Select
    Range("B61").Activate

    Selection.ClearContents    '(cette ligne est en jaune dans le truc de debogage)

    ActiveWindow.SmallScroll Down:=-39
    Range("AR1").Select
End Sub

Je cherche à effacer les différentes cases sélectionnées. Je pense que j'ai du faire une fausse manip mais j'ai beau essayer, je ne trouve pas..

Merci d'avance à ceux qui aurons 5 mn à me consacrer..

Bonjour

Essaye :

Sub Macro1()
    '
    ' Macro1 Macro
    ' Macro enregistrée le 18/12/2012 par X
    '
    ' Touche de raccourci du clavier: Ctrl+r
    '

        Range("H3:U6,M8:Q10,AE8:AI8,B13:D14,L13:N14,AC12:AG14,AI12:AL13,E17:G58,Z17:AB20,Z23:AB58,G60:U60,B61:U66").ClearContents

    End Sub

Amicalement

Nad

Bonsoir Nad,

merci pour ta réponse...Je n'ai pas eu le temps de l'essayer car j'ai refait tout mon fichier...ainsi que la macro.

Maintenant tout baigne.Je pense qu'une case n'était pas configuré correctement, mais c'était plus rapide de tout reprendre...

Merci de m'avoir consacré un peu de temps

Amicalement

Gnagna