Sub RDN()
' // Copie des lignes desirées dans les feuilles de calcul dédiées
Dim j As Long
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Workbooks.Open Filename:=("E:\Socata\Les Macros\lien master excel et notre doc excel\Classeur2.xlsx")
Col = "I" ' colonne de la donnée non vide à tester
With Workbooks("Classeur2.xlsx").Worksheets("Feuil1") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "N" Then
NumLig = ThisWorkbook.Worksheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0).Row
If ThisWorkbook.Worksheets("Feuil1").Range("A1") = "" Then NumLig = 1
.Cells(Lig, Col).EntireRow.Copy Destination:=ThisWorkbook.Worksheets("Feuil1").Range("A" & NumLig)
ThisWorkbook.Worksheets("Feuil1").Range("A" & NumLig & ":BC" & NumLig).Interior.ColorIndex = 3
End If
Next
End With
'trie par ordre croissant
ThisWorkbook.Activate
Worksheets("Feuil1").Cells.Sort key1:=Range("C:C"), order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=²False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub