Bonjour

J'ai un tableau ou toutes les cellules comportent une formule. Selon certains critère les cellules renverront une valeur sinon vide ("")
J'aimerais sélectionner les cellules du tableau qui sont différente de vide ("") ou vice versa, celle qui sont remplie.
Avec mon code cela sélectionne tout le tableau, donc si quelqu'un à la réponse cela m'aiderai bien à avancer.
Merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Tirage()
 Dim x As Integer
 Dim Manche As Variant
 Dim DL As Long 'Définition de la variable
 'Efface l'ancien tableau
 Range("AB5:CC22").ClearContents
 'Détermine le nombre de match à jouer
 Manche = Range("AE1")
 'MsgBox "Il y aura " & Manche & " Matchs par équipe !"
 
Range("U8").Select
DL = Cells(Application.Rows.Count, 21).End(xlUp).Row
'Je définis la dernière ligne dont la colonne U n'est pas vide, mais il sélectionne quand  memeles cellule dont la formule renvoie vide
 
Range("U8:X" & DL).Copy 'Je copie les lignes de U8 à la dernière ligne (
Range("AC8").Select
 
 For x = 1 To Manche
 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
Range("AC8").End(xlDown).Select
'
 Next x
 Application.CutCopyMode = False
 
End Sub