Recherche nouvelles données

Sub updatecopypastesheet()

Dim x As Long
Dim y As Long
Dim lastC1 As Long
Dim lastC2 As Long

Dim workingsheet As Worksheet
Dim CopyPasteSheet As Worksheet
Dim confirmationRetrieve As Long

'comfirmation box
confirmationRetrieve = MsgBox("Souhaiteriez-vous contrôler vos données ?", vbYesNo + vbInformation, "Demande de  Confirmation")

If confirmationRetrieve = vbYes Then
 GoTo updatecopypastesheet
Else
 Exit Sub
End If

updatecopypastesheet:

'Set wbtestdata = Workbooks("Web draw test file.xlsm")
Set workingsheet = Worksheets("parameters")
Set CopyPasteSheet = Worksheets("params")

lastC1 = workingsheet.Cells(1, Application.Columns.Count).End(xlToLeft).Column
x = lastC1
lastC2 = CopyPasteSheet.Cells(1, Application.Columns.Count).End(xlToLeft).Column
y = lastC2
 If x = y Then
 MsgBox " No New Lines Found"
 Else
 MsgBox x - y & " Attention ! De nouvelles données sont disponibles, ajoutez-les s’il vous plait "
 End If

End Sub

J'ai un problème avec ce programme. J'aimerais qu'il m'affiche si j'ai une différence de données entre plusieurs valeurs et dans ce cas, m'afficher sur la colonne à droite si j'ai de nouvelles valeurs en insérant un "NEW" à côté. Il ne remarque pas qu'il y a des nouvelles données ici. Je n'arrive pas à faire ça.

Bonjour dm2405,

Dans ton code je te propose de remplacer :

lastC1 = workingsheet.Cells(1, Application.Columns.Count).End(xlToLeft).Column
x = lastC1
lastC2 = CopyPasteSheet.Cells(1, Application.Columns.Count).End(xlToLeft).Column
y = lastC2

par

lastC1 = workingsheet.Cells(Application.Rows.Count, 1).End(xlUp).Row
x = lastC1
lastC2 = CopyPasteSheet.Cells(Application.Rows.Count, 1).End(xlUp).Row
y = lastC2

Super, merci beaucoup ! Erreur d'inattention.