Recopier juste les cellules avec une valeur

bonjour le forum

je voudrais recopier juste les cellules qui contiennent une valeur et non celles qui ont "###"

quelle formule faut-il employer.

1    1    #N/A    2     6   9    10   11    12   13   15   

4    2    #N/A                                                
7    3    2                                                
12    4    #N/A                                                
13    5    #N/A                                                
17    6    6                                                
20    7    #N/A                                                
21    8    #N/A                                                
25    9    9                                                
27    10    10                                                
29    11    #N/A                                                
31    12    #N/A                                                
32    13    #N/A                                                
34    14    11                                                
36    15    12                                                
37    16    13                                                
41    17    #N/A                                                
46    18    #N/A                                                
47    19    #N/A                                                
49    20    15                                                
53    21    #N/A                                                

dans cet exemple ce sont les valeurs " 2-6-9-10-11-12-13-15-" qui sont recopier,formule que je met dans la macro avec vligne.

vligne = Range("AS65536").End(xlUp).Row

vligne = vligne + 1

Range("AQ226:AQ253").Select

Application.CutCopyMode = False

Selection.Copy

Range("AS" & vligne).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

merci

Bonjour

Sans fichier

Un essai

Sub test()
  vligne = Range("AS" & Rows.Count).End(xlUp).Row + 1
  Range("AQ226:AQ253").Copy
  Range("AS" & vligne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  On Error Resume Next
  Range("AS" & vligne).Resize(28, 1).SpecialCells(xlCellTypeConstants, xlErrors).ClearContents
  On Error GoTo 0
End Sub

bonjour Banzai64,le forum

merci pour ta réponse.

un petit probleme,elle recopie bien les cellules avec valeur mais elle recopie verticalement et avec les espaces des cellules "###".

peut-on résoudre ce probleme.

merci

Bonjour

Sans test car sans fichier

essayes

Range("AS" & vligne).Resize(28, 1).SpecialCells(xlCellTypeConstants, xlErrors).Delete shift:=xlShiftUp

Sub test()
  vligne = Range("AS" & Rows.Count).End(xlUp).Row + 1
  Range("AQ226:AQ253").Copy
  Range("AS" & vligne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  On Error Resume Next
  Range("AS" & vligne).Resize(28, 1).SpecialCells(xlCellTypeConstants, xlErrors).Delete shift:=xlShiftUp
  On Error GoTo 0
End Sub