bonjour expert,
je suis débutant en vba et je cherche à faire une fonction gauche mais ça march pas, ci dessous mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub NETO()
Dim original As Range
Dim k As Integer
Set original = Sheets("BLDEP").Range("B10")
Sheets("TRANSIT").Activate
k = Sheets("TRANSIT").End(xlToRight).Column + 1
With Application.WorksheetFunction
Cells(3, k).Value = Left(original, 8)
 
End With
 
End Sub
merci pour votre aide.