copier vers

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
        If .Column = 9 And (.Value = 'R' Or .Value = 'r') Then
                ActiveSheet.Range(Cells(.Row, 1), Cells(.Row, 8)).Copy _
                Destination:=Sheets('TRANSFERT').Cells(Sheets('TRANSFERT').Cells(65536, 1).End(xlUp).Offset(1, 0).Row, 1)
        End If
End With
End Sub

Cliquez pour agrandir...

    'mois de janvier et février
    Sheets('ARCHIVE').Range('A7:h205').Select
    Selection.Sort Key1:=Sheets('ARCHIVE').Range('A7'), Order1:=xlAscending, Header:=xlGuess, _
                        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
                               
    '    La seule chose dont je ne suis pas sure, c'est cette commande là Header:=xlGuess
    '    Si tu as des troubles, remplace cette commande par Header:=xlNo
   
    '    Ensuite, je crois que cette commande n'est peut être pas disponible en Xl97, mais sure: DataOption1:=xlSortNormal
    '    Enlève la complètement avec la virgule avant, si tu as encore des problèmes.

Cliquez pour agrandir...