Thanks Zack,
Ok, I will always put a link when a cross post. Sorry, I didnt think I should do that, because it could be considered wrong. You know, it could be considered as marketing another forum.
By the way, as I have liked more that first solution of yours I have just adapted it and got it working just fine.
Here is its final code:
Option Explicit
Sub TestForMrE()
Dim aNome As String, Nova As String, filterRng As Range, nommes As String
While (Len(nommes) > 3) Or nommes = ""
nommes = InputBox("Type month's name with 3 characters", "Report Month", _
"jan, feb, mar, apr, mai, jun, jul, aug, sep, oct, nov, dec")
Wend
Application.ScreenUpdating = False
Application.DisplayAlerts = False
aNome = "can_" & LCase(nommes)
Nova = "NC_" & LCase(nommes)
ActiveSheet.Name = aNome
Sheets.Add
ActiveSheet.Name = Nova
With Sheets(aNome)
'.Range("A1").EntireRow.Copy Sheets(Nova).Range("A1")
Set filterRng = .Range("A1", .Range("D65536").End(xlUp))
With filterRng
.AutoFilter field:=1, Criteria1:="=NC"
On Error Resume Next
.SpecialCells(xlCellTypeVisible).Copy Sheets(Nova).Range("A2")
.SpecialCells(xlCellTypeVisible).Delete
.Cells(1).EntireRow.Insert
End With
Sheets(Nova).Range("1:1").Copy .Range("1:1")
End With
Sheets(Nova).Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub