capter des colonnes sous condition puis les coller

Sub numer()
    Dim Cell As Range
    Dim R As Range
    'Assuming activesheet is named sheet1
    Sheets("Sheet1").Select

    RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
    For i = 2 To RowCount
        Range("a" & i).Select
        valeur = ActiveCell.Value
        If IsDate(valeur) = False Then
            ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
            etat1 = ActiveCell.Value
            ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
            etat2 = ActiveCell.Value
            If etat1 < etat2 Then
                MsgBox "il faut continuer le travail, en developpement"
                MsgBox ActiveCell.Address
            End If
        Else
        End If
    Next


End Sub