Sub coller()
On Error Resume Next
'tri de la colonne M feuille FSR
Sheets("FSR").Columns("m:m").Select
Selection.Sort Key1:=Range("M1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'nombre de lignes dans feuille FSR
bz = Sheets("FSR").Range("A65536").End(xlUp).Row
'???
test1 = "y"
test2 = "z"
test3 = "w"
'première ligne du tableau feuille PRESORT SAISIE
c = 24
'??
d = 68
'pour toutes les lignes de la feuille FSR
For i = 2 To bz
'si test...
If Left(Sheets("FSR").Range("C" & i), 1) <> test1 And Left(Sheets("FSR").Range("C" & i), 1) <> test2 And Left(Sheets("FSR").Range("C" & i), 1) <> test3 And Sheets("FSR").Range("M" & i) <= Sheets("presort saisie").Range("ac3") And Sheets("FSR").Range("E" & i) = Sheets("presort saisie").Range("E3") And Right(Sheets("FSR").Range("G" & i), 1) = Sheets("presort saisie").Range("H3") And Sheets("FSR").Range("M" & i) >= Sheets("presort saisie").Range("B3") Then
'nom des colonnes destination
ORGLOAD = "A"
ORGSLIC = "B"
ORGSORT = "C"
DESTSORT = "E"
JOB = "F"
'copie des infos
Sheets("presort saisie").Range(ORGLOAD & c) = Sheets("FSR").Range("D" & i)
Sheets("Presort saisie").Range(ORGSLIC & c).Value = Left(Sheets("FSR").Range("F" & i), 5)
Sheets("Presort saisie").Range(ORGSORT & c).Value = Right(Sheets("FSR").Range("F" & i), 1)
Sheets("Presort saisie").Range(DESTSORT & c).Value = Right(Sheets("FSR").Range("G" & i), 1)
Sheets("presort saisie").Range(JOB & c) = Sheets("FSR").Range("C" & i)
'au premier passage.. c passe à 25
c = c + 1
'si la cellule A63 non vide
If Sheets("presort saisie").Range("a63") <> "" Then
'c passe à 25-39 = -14----> ca va surement provoquer une erreur...
c = c - 39
'changement des colonnes destination
ORGLOAD = "T"
ORGSLIC = "U"
ORGSORT = "V"
DESTSORT = "X"
JOB = "Y"
End If
End If
Next i
End Sub