Première macro...

IF '//cellule non vide

then

'// tu fais la copie de ta ligne dans une autre feuille

end if

Sub Archivage()

 
Dim DateR As Date

 
For Each DateR In Worksheet("Suivi").Range("I:I")

'ma colonne I commence en fait en I6 et n'a pas de limite en bas, comment désigner la limite ("I6:I?")

If DateR Is notempty Then

Worksheets("Suivi").Range("I:I").Copy Destination:=Worksheets("Archivage").Range("I:I")

'Comment désigner la ligne correspondante par rapport à la case non vide ?

 
End If

 
End Sub

[...]

dim ws_suivi as Worksheet

 
set ws_suivi = Worksheets("Suivi")

[...]

Worksheets("Suivi" ).Range("I:I" ).Copy Worksheets("Archivage" ).Range("I:I" )

option Explicit

Sub Archivage()

 
Dim DateR As Date

Dim ws_suivi As Worksheet

Dim ws_archivage As Worksheet

 
Set ws_suivi = Worksheets("Suivi")

Set ws_archivage = Worksheets("Archivage")

Set DateR = ws_suivi.Range("I6").End(xlDown)

 
For Each cell In DateR

If cell Is notempty Then

' je ne vois pas comment écrire les numéros de ligne où les cellules sont non vides dans la colonne I

ws_suivi.Range("A").Offset(0, 17).Copy ws_archivage.Range("A6").End(xlDown).Offset(1, 0)

 
End If

 
End Sub

Sub Archivage()

 
Dim ws_suivi As Worksheet

Dim ws_archivage As Worksheet

 
Set ws_suivi = Worksheets("Suivi")

Set ws_archivage = Worksheets("Archivage")

 
'j'active la feuille suivi

ws_suivi.Activate

 
'avec la feuille suivi

With ws_suivi

'Je remonte de la derniere ligne jusqu'a la ligne 7

For x = .Range("I65000").End(xlUp).Row To 7 Step -1

  'si dans la cellule I il y a quelques choses alors

  If .Range("I" & x) <> "" Then

   'Je copie la ligne entière dans la feuille archive

   .Rows(x).EntireRow.Copy ws_archivage.Range("A65000").End(xlUp).Offset(1, 0)

   'Je supprime la ligne entière

   .Rows(x).EntireRow.Delete

  End If

Next x

End With

 
End Sub

Dim DateR As Date

Dim ws_suivi As Worksheet

Dim ws_archivage As Worksheet '// ok

 
Set ws_suivi = Worksheets("Suivi" )

Set ws_archivage = Worksheets("Archivage" ) '// bien jusque là

'// pk date R définie comme date alors que il renvois un numero de ligne, celui de la derniere non vide..

 
For Each cell In DateR '// parfait mais déclare cell as Range.. et renomme ta plage

If cell <> "" Then '//ce que tu cherchait le signe différent :<> et pour dire vide : ""

ws_suivi.Range("A" ).Offset(0, 17).Copy ws_archivage.Range("A6" ).End(xlDown).Offset(1, 0)

End If

Dim lstrow As range

Dim ws_suivi As Worksheet

Dim plage_destination As Range '// plus judicieux

dim i as long

 
Set ws_suivi = Worksheets("Suivi" )

set plage_destination =Worksheets("Archivage").cells '// compris ?

set lstrow = ws_suivi.Columns(8).offset(6).end(xldown).row '// indique le numero de ligne de la derniere cellule ds I

 
For i = lstrow to 6 '// de la derniere ligne a la premiere

If ws_suivi.cells(i,8).value <> "" Then '//si cellule non vide

ws_suivi.rows(i).Copy plage_destination

plage_destination = plage_destination.offset(1,0) '// on descend d'une ligne pour préparer la prochaine copie

ws_suivi.Rows(i).delete

End If

For i = lstrow to 6  

If ws_suivi.cells(i,8).value <> "" Then

Sub Archivage()

 
Dim lstrow As Range

Dim ws_suivi_m As Worksheet

Dim plage_destination As Range '// plus judicieux

Dim i As Long

 
Set ws_suivi_m = Worksheets("Suivi Matériel")

Set plage_destination = Worksheets("Archivage Matériel").Cells

Set lstrow = ws_suivi_m.Columns(10).Offset(6).End(xlDown).Row '// finalement ce sera en colonne J donc 10

 
For i = lstrow To 6 '// je confirme que mes données commencent en I6, l'en-tête est en I5

If ws_suivi_m.Cells(i, 10).Value <> "" Then

ws_suivi_m.Rows(i).Copy plage_destination

plage_destination = plage_destination.Offset(1, 0)

ws_suivi_m.Rows(i).Delete

 
End If

 
Next i '// il manquait cette ligne

 
End Sub

Set lstrow = ws_suivi_m.Columns(10).Offset(6).End(xlDown).Row

Option Explicit '// détecte toutes tes variables non définies !!!!

 
Sub linecopy(ByVal line As Range, ByRef target As Range, Optional clear As Boolean) '// la fameuse fonction 

    line.EntireRow.Copy Destination:=target

    If clear Then line.EntireRow.Delete

    Set target = target.Offset(1)

End Sub

 
Sub Archivage()

 
Dim lstrow As Long '// derniere ligne du tableau

Dim fstrow As Long '// premiere ligne du tableau

 
Dim ws_suivi_m As Worksheet

Dim plage_destination As Range

Dim i As Long

 
Set ws_suivi_m = Worksheets("Suivi Matériel")

Set plage_destination = Worksheets("Archivage Matériel").Rows(2) '// commence ta copie a la ligne 2

fstrow = ws_suivi_m.Columns(10).End(xlDown).Row + 1 '// plus 1 pour éviter de compter ton entete

lstrow = ws_suivi_m.Range(Cells(fstrow, 10), Cells(65536, 10)).End(xlDown).Row '// défini la derniere ligne

 
For i = lstrow To fstrow step -1

    If ws_suivi_m.Cells(i, 10).value <> ""  Then

        linecopy ws_suivi_m.Rows(i), plage_destination, True

    End If

Next

 
End Sub

lstrow = ws_suivi_m.Range(Cells(fstrow, 10), Cells(65536, 10)).End(xlDown).Row '// défini la derniere ligne

lstrow = ws_suivi_m.Range("J65000").End(xlup).Row '// défini la derniere ligne

Sub linecopy(ByVal line As Range, ByRef target As Range, Optional clear As Boolean) '// la fameuse fonction

 
        line.EntireRow.Copy Destination:=target

        If clear Then line.Range("F:J").Delete

        Set target = target.Offset(1)

 
    End Sub

 
Sub Archivage()

 
    Dim lstrow As Long '// derniere ligne du tableau

 
    Dim ws_suivi_m As Worksheet

    Dim plage_destination As Range

    Dim i As Long

 
    Set ws_suivi_m = Worksheets("Suivi Matériel")

    Set plage_destination = Worksheets("Archivage Matériel").Rows(6)

 
    lstrow = ws_suivi_m.Range("J65000").End(xlUp).Row   '// défini la derniere ligne

 
For i = lstrow To 6

    If ws_suivi_m.Cells(i, 10).Value <> "" Then

        linecopy ws_suivi_m.Rows(i), plage_destination, True

 
   End If

 
Next

 
End Sub

Sub linecopy(ByVal line As Range, ByRef target As Range, Optional clear As Boolean) '// la fameuse fonction

 
        line.EntireRow.Copy Destination:=target

        If clear Then line.Range("F:J").Delete

        Set target = target.Offset(1)

 
    End Sub

 
Sub Archivage()

 
    Dim lstrow As Long '// derniere ligne du tableau

 
    Dim ws_suivi_m As Worksheet

    Dim plage_destination As Range

    Dim i As Long

 
    Set ws_suivi_m = Worksheets("Suivi Matériel")

    Set plage_destination = Worksheets("Archivage Matériel").Rows(6).End(x1Down).Row + 1

 
    lstrow = ws_suivi_m.Range("J65000").End(xlUp).Row   '// défini la derniere ligne

 
For i = lstrow To 6 Step -1

    If ws_suivi_m.Cells(i, 10).Value <> "" Then

        linecopy ws_suivi_m.Rows(i), plage_destination, True

 
   End If

 
Next

 
End Sub

Sub linecopy(ByVal line As Range, ByRef target As Range, Optional clear As Boolean)

    line.EntireRow.Copy Destination:=target

    If clear Then Range(Cells(line.Row, 6), Cells(line.Row, 10)).Delete '// tu delete uniquement les cellules F a J ..

    Set target = target.Offset(1) '// c'est ca qui te permet d'augmenter tes lignes de 1 sur la feuille archivage..

End Sub

 
Sub Archivage()

 
Dim lstrow As Long '// derniere ligne du tableau

 
Dim ws_suivi_m As Worksheet

Dim plage_destination As Range

Dim i As Long

 
Set ws_suivi_m = Worksheets("Suivi Matériel")

Set plage_destination = Worksheets("Archivage Matériel").Rows(6) '// ca reste tel quel pur l'instant...

 
lstrow = ws_suivi_m.Range("J65000").End(xlUp).Row  

 
For i = lstrow To 6 Step -1

    If ws_suivi_m.Cells(i, 10).Value <> "" Then

        linecopy ws_suivi_m.Rows(i), plage_destination, True

    End If

Next

 
End Sub

Worksheets("Archivage Matériel" ).Rows(6).End(x1Down).Row + 1

Sub linecopy(ByVal line As Range, ByRef target As Range, Optional clear As Boolean)

 
     line.EntireRow.Copy Destination:=target

     If clear Then Range(Cells(line.Row, 6), Cells(line.Row, 10)).Delete '// tu delete uniquement les cellules F a J ..

     Set target = target.Offset(1) '// c'est ca qui te permet d'augmenter tes lignes de 1 sur la feuille archivage..

End Sub

 
Sub Archivage()

 
 Dim lstrow As Long '// derniere ligne du tableau

 
 Dim ws_suivi_m As Worksheet

 Dim plage_destination As Range

 Dim i As Long

 Dim j As Long

 
 Set ws_suivi_m = Worksheets("Suivi Matériel")

 Set plage_destination = Worksheets("Archivage Matériel").Rows(6)  '// ca reste tel quel pur l'instant...

 
 lstrow = ws_suivi_m.Range("J65000").End(xlUp).Row

 fstrow = plage_destination("A6").End(x1Down).Row

 
 For i = lstrow To 6 Step -1                    '// De la dernière ligne à la ligne 6 en remontant ligne par ligne

     If ws_suivi_m.Cells(i, 10).Value <> "" Then '// Si dans la colonne 10 (J), la cellule est non vide

         linecopy ws_suivi_m.Rows(i), plage_destination, True   '// La ligne correspondante est copiée dans plage_destination

     End If

 Next

 
For j = fstrow To 65000 Step 1                  '// De la première ligne à partir de fstrow jusqu'à la dernière ligne

     If plage_destination.Cells(j, 1).Value <> "" Then  '// Si dans la plage_destination colonne 1, la cellule est non vide

         linecopy ws_suivi_m.Rows(i), plage_destination, True    '//Ici je ne vois pas comment rédiger...

     End If

 
 End Sub

Sub linecopy(ByVal line As Range, ByRef target As Range, Optional clear As Boolean)

    line.EntireRow.Copy Destination:=target

    If clear Then Range(Cells(line.Row, 6), Cells(line.Row, 10)).Delete 

    Set target = target.Offset(1) '// c'est ca qui te permet d'augmenter tes lignes de 1 sur la feuille archivage..

End Sub '// pas de changement

 
Sub Archivage()

 
Dim lstrow As Long 

Dim ws_suivi_m As Worksheet

Dim plage_destination As Range

Dim i As Long

Dim j as Long '// on intègre une nouvelle variable

 
j = Worksheets("Archivage Matériel" ).Range("A65536").End(xlup).Row '// donne la dernière ligne vide de archivage

 
Set ws_suivi_m = Worksheets("Suivi Matériel" )

Set plage_destination = Worksheets("Archivage Matériel" ).Rows(j) '// on intègre j comme début de plage pour la copie

 
lstrow = ws_suivi_m.Range("A65536" ).End(xlUp).Row '// utilisation de la colonne A et pas J (car trous dans J)

For i = lstrow To 6 Step -1

    If ws_suivi_m.Cells(i, 10).Value <> "" Then

        linecopy ws_suivi_m.Rows(i), plage_destination, True

    End If

Next

End Sub

Sub Tri_automatique()

 
    Range("A6:S65536").Sort Key1:=Range("J6"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

End Sub

Option Explicit

 
Sub linecopy(ByVal line As Range, ByRef Target As Range, Optional clear As Boolean)

     line.EntireRow.Copy Destination:=Target

     If clear Then Range(Cells(line.Row, 6), Cells(line.Row, 10)).ClearContents

     Set Target = Target.Offset(1) '// c'est ca qui te permet d'augmenter tes lignes de 1 sur la feuille archivage..

End Sub '// pas de changement

 
Sub Archivage()

 
 Dim lstrow As Long

 Dim ws_suivi_m As Worksheet

 Dim ws_archivage_m As Worksheet

 Dim plage_destination As Range

 Dim i As Long

 Dim j As Long '// on intègre une nouvelle variable

 
 j = Worksheets("Archivage Matériel").Range("A65536").End(xlUp).Row + 1 '// donne la dernière ligne vide de archivage

 
 Set ws_suivi_m = Worksheets("Suivi Matériel")

 Set plage_destination = Worksheets("Archivage Matériel").Rows(j)  '// on intègre j comme début de plage pour la copie

 Set ws_archivage_m = Worksheets("Archivage Matériel")

 
 lstrow = ws_suivi_m.Range("A65536").End(xlUp).Row  '// utilisation de la colonne A et pas J (car trous dans J)

 For i = lstrow To 6 Step -1

     If ws_suivi_m.Cells(i, 10).Value <> "" Then

         linecopy ws_suivi_m.Rows(i), plage_destination, True

     End If

 
 Next

 
        ws_archivage_m.Range("A6:S65536").Sort Key1:=ws_archivage_m.Range("J6"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal     '// tri les données dans la colonne J à partir de la ligne 6.

 
End Sub

If clear Then Range(Cells(line.Row, 6), Cells(line.Row, 10)).ClearContents

If clear Then line.Worksheet.Range(Cells(line.Row, 6), Cells(line.Row, 10)).ClearContents

Sub linecopy(ByVal line As Range, ByRef Target As Range, Optional clear As Boolean)

 
    line.EntireRow.Copy Destination:=Target

    If clear Then line.Worksheet.Range(Cells(line.Row, 6), Cells(line.Row, 10)).ClearContents

    Set Target = Target.Offset(1) '// c'est ca qui te permet d'augmenter tes lignes de 1 sur la feuille archivage..

 
End Sub '// pas de changement

 
Sub Archivage()

 
 Dim lstrow As Long

 Dim ws_suivi_m As Worksheet

 Dim ws_archivage_m As Worksheet

 Dim plage_destination As Range

 Dim i As Long

 Dim j As Long '// on intègre une nouvelle variable

 
 j = Worksheets("Archivage Matériel").Range("A65536").End(xlUp).Row + 1 '// donne la dernière ligne vide de archivage

 
 Set ws_suivi_m = Worksheets("Suivi Matériel")

 Set plage_destination = Worksheets("Archivage Matériel").Rows(j)  '// on intègre j comme début de plage pour la copie

 Set ws_archivage_m = Worksheets("Archivage Matériel")

 
 lstrow = ws_suivi_m.Range("A65536").End(xlUp).Row  '// utilisation de la colonne A et pas J (car trous dans J)

 For i = lstrow To 6 Step -1

     If ws_suivi_m.Cells(i, 10).Value <> "" Then

         linecopy ws_suivi_m.Rows(i), plage_destination, True

     End If

 
 Next

 
        ws_archivage_m.Range("A6:S65536").Sort Key1:=ws_archivage_m.Range("J6"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal     '// tri les données dans la colonne J à partir de la ligne 6.

 
End Sub

Sub linecopy(ByVal line As Range, ByRef Target As Range, Optional clear As Boolean)

    Dim ws_suivi_m As Worksheet

    Set ws_suivi_m = Worksheets("Suivi Matériel") '// declaration classique de ta feuille

    line.EntireRow.Copy Destination:=Target

    If clear Then ws_suivi_m.Range(Cells(line.Row, 6), Cells(line.Row, 10)).ClearContents '// utilisation de la feuille pour indiquer l'addresse du .Range

    Set Target = Target.Offset(1)

End Sub

Option Explicit

 
Sub linecopy(ByVal line As Range, ByRef Target As Range, Optional clear As Boolean)

 
    Dim ws_suivi_m As Worksheet

    Set ws_suivi_m = Worksheets("Suivi Matériel")  '// declaration classique de ta feuille

 
    line.EntireRow.Copy Destination:=Target

    If clear Then ws_suivi_m.Range(Cells(line.Row, 6), Cells(line.Row, 10)).ClearContents '// utilisation de la feuille pour indiquer l'addresse du .Range

    Set Target = Target.Offset(1)

 
End Sub

 
Sub Archivage()

 
 Dim lstrow As Long

 Dim ws_suivi_m As Worksheet

 Dim ws_archivage_m As Worksheet

 Dim plage_destination As Range

 Dim i As Long

 Dim j As Long '// on intègre une nouvelle variable

 
 j = Worksheets("Archivage Matériel").Range("A65536").End(xlUp).Row + 1 '// donne la dernière ligne vide de archivage

 
 Set ws_suivi_m = Worksheets("Suivi Matériel")

 Set plage_destination = Worksheets("Archivage Matériel").Rows(j)  '// on intègre j comme début de plage pour la copie

 Set ws_archivage_m = Worksheets("Archivage Matériel")

 
ws_archivage_m.Unprotect "mdp" '// Retire la protection de la feuille "mdp"="mot de passe"

 
 lstrow = ws_suivi_m.Range("A65536").End(xlUp).Row  '// utilisation de la colonne A et pas J (car trous dans J)

 For i = lstrow To 6 Step -1

     If ws_suivi_m.Cells(i, 10).Value <> "" Then

         linecopy ws_suivi_m.Rows(i), plage_destination, True

     End If

 
 Next

 
        ws_archivage_m.Range("A6:S65536").Sort Key1:=ws_archivage_m.Range("J6"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal     '// tri les données dans la colonne J à partir de la ligne 6.

 
ws_archivage_m.Protect "mdp", True, True, True '// remet la protection

 
 
End Sub

Sub linecopy(ByVal ws_source as Worksheet, ByVal line As Range, ByRef Target As Range, Optional clear As Boolean) '// nouvelle variable

    line.EntireRow.Copy Destination:=Target

    If clear Then Range(ws_source.Cells(line.Row, 6), ws_source.Cells(line.Row, 10)).ClearContents '// ici modifs

    Set Target = Target.Offset(1)

End Sub

[...]

 
linecopy ws_suivi_m, Rows(i), plage_destination, True '// changement de syntaxe

Sub linecopy(ByVal line As Range, ByRef Target As Range, Optional clear As Boolean) '// nouvelle variable

 
 Dim ws_suivi_m As Worksheet

 
 Set ws_suivi_m = Worksheets("Suivi Matériel")

 
    line.EntireRow.Copy Destination:=Target

    If clear Then Range(ws_suivi_m.Cells(line.Row, 6), ws_suivi_m.Cells(line.Row, 10)).ClearContents '// ici modifs

    Set Target = Target.Offset(1)

 
 
End Sub

 
Sub Archivage()

 
 Dim lstrow As Long

 Dim ws_suivi_m As Worksheet

 Dim ws_archivage_m As Worksheet

 Dim plage_destination As Range

 Dim i As Long

 Dim j As Long '// on intègre une nouvelle variable

 
 j = Worksheets("Archivage Matériel").Range("A65536").End(xlUp).Row + 1 '// donne la dernière ligne vide de archivage

 
 Set ws_suivi_m = Worksheets("Suivi Matériel")

 Set plage_destination = Worksheets("Archivage Matériel").Rows(j)  '// on intègre j comme début de plage pour la copie

 Set ws_archivage_m = Worksheets("Archivage Matériel")

 
 lstrow = ws_suivi_m.Range("A65536").End(xlUp).Row  '// utilisation de la colonne A et pas J (car trous dans J)

 For i = lstrow To 6 Step -1

     If ws_suivi_m.Cells(i, 10).Value <> "" Then

         linecopy ws_suivi_m.Rows(i), plage_destination, True

     End If

 
 Next

 
        ws_archivage_m.Range("A6:S65536").Sort Key1:=ws_archivage_m.Range("J6"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal     '// tri les données dans la colonne J à partir de la ligne 6.

 
 
End Sub