Sélection de cellules non vides

Bonjour le forum,

Je bloque sur un code VBA me permettant de sélectionner les cellules non vides d'une colonne, à noter que cette sélection sera amenée à etre aléatoire, voir ci joint

Un grand merci pour votre aide

Bonjour CDB, bonjour le forum,

Si le contenue des cellules n'est pas une formule, essaie comme ça :

Sub ThauTheme()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)

Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "F").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne F de l'onglet O
Set PL = O.Range("F5:F" & DL) 'définit la plage PL
PL.SpecialCells(xlCellTypeConstants).Select 'sélectionne touts les cellules constantes de la plage PL
End Sub