Bonjour a tous !

J'ai un bout de code, que voici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim code As String
code = Sheets("PROGRAMME").Range("D14").Text
Dim l As Integer
Dim myRange As Range
Dim num As Long
Dim dl1 As Long ' dernière ligne
dl1 = Sheets("ORIGINALE").Range("K65536").End(xlUp).Row
Set myRange = Sheets("ORIGINALE").Range("K" & dl1)
num = Application.WorksheetFunction.Max(myRange) + 1
 
Sheets("ORIGINALE").Unprotect Password:="popol"
Sheets("ORIGINALE").Select
l = Sheets("ORIGINALE").Range("K65000").End(xlUp).Row + 1
With Sheets("ORIGINALE")
.Range("K" & l) = code & num
End With
Sheets("ORIGINALE").Protect Password:="popol"
Sheets("PROGRAMME").Activate
qui devrait me servir a implémenter un code alphanumérique d'une ligne a l'autre (cellule K17 = ZZ1, cellule K18 = ZZ2, etc), mais malheureusement ce code ne marche pas dans mon projet...mais il fonctionne dans un nouveau projet vide !

Je vous demande donc si le fait que j'ai ceci pour implémenter mes lignes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim Ligne As Long
Ligne = Sheets("ORIGINALE").Range("A" & Rows.Count).End(xlUp).Row + 1
pourrais entrer en conflit avec l'autre bout de code??? sinon ou est le problème???

Merci de le tester chez vous et de m'aider avec ceci.

PS: je l'ai déjà dit mais je le réitère: je suis plutôt novice en vba !!