Bonjour, je vous écris pour vois si vous pouvez m’illuminer avec vos connaissances . J'utilise une nouvelle fonctionnalité pour moi et c'est le "format" pour copier le valeur de la colonne 1 dans la colonne 13 et après ajouter devant les caractères "CLE" devant le contenue de la cellule.
Le problème est-ce que ça me donne "incompatibilité de type" juste après le For

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
'Etape 3: déclaration variables pour trouver ligne clè identifié comme "@@ " et l'introduire dans la colonne 13 avec "CLE " devant le contenu. 
DligneVid = Range("A" & Rows.Count).End(xlUp).Row 'ligne déja déclare avant dans la boucle eliminer lignes vides
PligneB = Range("A35").End(xlDown).Row 'aussi variable déja utilisée
Dim Cl As String
Cl = "@@ "
 
 
For Cl = DligneVid To PligneB Step -1
    If Format(Left(Cells(Cl, 1), 3)) Then
       Cells(Cl, 13).Value = Cells(Cl, 1).Value
       Format(Left(Cells(Cl, 13), "CLE*")).Value
    End If
Next Cl