Sub Essai()
Dim wb As Workbook
Dim ws As Worksheet
Dim derLigne As Long
Set TargetWorkbook = Application.ActiveWorkbook
TargetWorkbook.Sheets("PLF").Range("B3:M1048576").ClearContents
derLigne = TargetWorkbook.Sheets("PLF").Range("B1048576").End(xlUp).Row + 1
'TargetWorkbook.Sheets("PLF").Range("B" & derLigne).Select
Application.DisplayAlerts = False
Set wb = Workbooks.Open("P:\INFRALOG\URA\COMMUN_UNITE\28_Parc_SES\Stagiaires\Anne-Charlotte\KIZEO\Essai Macro\Essai Macro KIZEO.xlsx")
Application.DisplayAlerts = True
Set ws = wb.Sheets("PLF")
totalLignes = ws.UsedRange.Rows.Count
Dim valeurCherchee As String
For i = 1 To totalLignes
valeurCherchee = Cells(i, 1).Value
'MsgBox valeurCherchee
If valeurCherchee = "VOIE COTE ROUTE " Then
j = j + 1
TargetWorkbook.Sheets("PLF").Range("B" & derLigne - k - l) = ws.Cells(i, 2).Value
derLigne = derLigne + 1
End If
If valeurCherchee = "VOIE MILIEU" Then
k = k + 1
TargetWorkbook.Sheets("PLF").Range("F" & derLigne - j - l) = ws.Cells(i, 2).Value
derLigne = derLigne + 1
End If
If valeurCherchee = "VOIE COTE DOT" Then
l = l + 1
TargetWorkbook.Sheets("PLF").Range("J" & derLigne - j - k) = ws.Cells(i, 2).Value
derLigne = derLigne + 1
End If
Next
wb.Close (False)
End Sub