Problème boucle et variables

Bonjour,

Je débutes les macros, et je bloque sur celle ci (elle bloque). En résumé, je veux que tant que les cellules de la colonneA ne sont pas vide,le Cde et N°Ligne soit concatener (sachant que le N° de Cde change à chaque ligne°

Sub CdeLigne()
'Déclaration des variables
    Dim N°Ligne As Integer
    Dim Cde As Integer
    Dim Ligne As Integer
'Valeur des variables
    N°Ligne = Range("A2") + 1
    Cde = Cells(N°Ligne, 3)
    Ligne = Cells(N°Ligne, 4)
Range("A2").Select
    Do While Not (IsEmpty(ActiveCell))
        Cells(ActiveCell.Row, 12).Value = Cde & "/" & Ligne
        Selection.Offset(1, 0).Select
    Loop
End Sub

Merci

Bonsoir

Pour comprendre ce que tu veux, ton fichier est indispensable

Bonsoir et bienvenue

Essaye :

Sub CdeLigne()
'Déclaration des variables
Dim N°Ligne As Integer
Dim Cde As Integer
Dim Ligne As Integer

Range("A2").Select

Do While Not (IsEmpty(ActiveCell))

'Valeur des variables
N°Ligne = ActiveCell + 1
Cde = Cells(N°Ligne, 3)
Ligne = Cells(N°Ligne, 4)

Cells(ActiveCell.Row, 12).Value = Cde & "/" & Ligne
Selection.Offset(1, 0).Select
Loop
End Sub

Amicalement

Nad

Merci de votre aide