Mettre une condition à l'exécution d'une macro

Bonjour,

adaptez le nom de la feuille

Sub MaMacro

    If Worksheets("feuil1").Range("BV10") = Worksheets("feuil1").Range("CJ10") Then
        'votre code
        '.....
    End If
End Sub

Bonjour f894009

J 'ai complété la macro et quand je veux l'exécuter il s'affiche le message "Erreur de compilation - End If sans bloc If".

La macro se présente ainsi :
___________________________________________________________________________
Sub Subsanschangement159()
'
' Sans changement159 Macro
' Macro enregistrée le 14/10/2015 par Patrick
'
'If Worksheets("Associations 1").Range("BV10") = Worksheets("Associations 1").Range("CJ10") Then
Range("BM10:BZ3169").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollRow = 27
Application.Left = 16.75
Application.Top = 8.5
ActiveWindow.SmallScroll Down:=2
Range("BM30:BZ3189").Select
ActiveSheet.Paste
Range("CA10:CN29").Select
Selection.Copy
Range("BM10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _ False, Transpose:=False
'
End IF
End Sub
___________________________________________________________________________


Ou y a t-il une erreur?

Merci

Bonjour,

cette ligne est en commentaire

'If Worksheets("Associations 1").

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Rebonjour


Je viens d'apprendre a faire des macros, mais je ne connais pas encore VBA.

Concrètement que dois je modifier dans la macro?


Merci