Macro archive en valeur

Bonjour ,

J'ai créé un code me permettant de copier en valeur les Information de X10 a AE27 vers la dernière ligne active de la colonne AO ( sur le meme onglet)

cependant lorsque je m'exécute , aucun message d'erreur et aucune action .

Auriez-vous une idée ? j'ai bien regardé le nom de l'onglet , nom des colonnes .....

Sub lll()
'
' lll Macro
'
Dim i As Long

With Sheets("BLOCAGE")

i = .Range("AO" & Rows.count).End(xlUp).Row + 1

Exit Sub

If MsgBox("Etes-vous certain de vouloir archiver la semaine  !!?", vbYesNo, "Demande de confirmation") = vbYes Then
.Range("X10:AE27").Select
.Selection.Copy

.Range("AO" & i).Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Application.CutCopyMode = False
MsgBox ("Semaine archivée")
End If

End With
End Sub

Merci d'avance pour votre aide :=)

Bonjour

je ne sait pas si ca peu vous aider

Sub lll()
'
' lll Macro
'
Dim i As Long

With Sheets("BLOCAGE")

i = .Range("AO" & Rows.Count).End(xlUp).row + 1

'Exit Sub

If MsgBox("Etes-vous certain de vouloir archiver la semaine  !!?", vbYesNo, "Demande de confirmation") = vbYes Then
.Range("X10:AE27").Select
Selection.Copy

.Range("AO" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, _
                                                                    Operation:=xlNone, _
                                                                    SkipBlanks:=False, _
                                                                    Transpose:=False

Application.CutCopyMode = False
MsgBox ("Semaine archivée")
End If

End With
End Sub

a vous relire

Bonjour iliyes,

merci beaucoup pour la correction du code ,cela fonctionne parfaitement .

Je vais le décomposé pour bien comprendre

Bonne journée