Recherche de vide

Bonjour

je suis besoin d'aide

j'ai un programme de recherche de vide dans un tableau , le problème je veux quelle me enregistre a chaque fois je fait une recherche la case vide dans un tableau est la gradé non pas l’écrasé , voici mon programme

• Dim Plage_rech As Range
  
  With Worksheets("exemple")
  Set Plage_rech = .Range("C1:L9")
  Set Rng = Plage_rech.Find("", LookIn:=xlValues, LookAt:=xlWhole)
  End With
  
  With Worksheets("Feuil1")
  .Range("B1") = Rng.Address
  End With

Bonjour,

Essaie ceci :

Sub XXX()
Dim rng As Range
    On Error Resume Next
    Set rng = Worksheets("exemple").Range("C1:L9").SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    If Not rng Is Nothing Then Worksheets("Feuil1").Range("B1") = rng.Address
End Sub

merci beaucoup pour ta réponse

parfait mais je veux que chaque résultat soit affichée dans une case a la fin je vais avoir un tableau

ON doit avoir une seule case vide rencontré comme résultat de chaque exécution

Re,

Un nouvel essai.

Cdlt.

Sub XXX()
Dim rng As Range, N As Long
    On Error Resume Next
    Set rng = Worksheets("exemple").Range("C1:L9").SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    If Not rng Is Nothing Then
        With Worksheets("Feuil1")
            N = .Cells(.Rows.Count, 2).End(xlUp).Row
            If N = 1 Then
                .Cells(1, 2).Value = rng.Address
            Else
                .Cells(N + 1, 2).Value = rng.Address
            End If
        End With
    End If
End Sub

BONSOIR

mercii pour ta réponse bon je exécuté le code mais il ma donner le même résultat de programme précédent brièvement je cherche un espace dans un tableau excel l’heure de rencontre de premier espace il enregistré l’emplacement de ce espace EST en attendant l’exécution de programme deuxième fois pour donnée l’espace suivant , tout c'est résultat je doit le trouvée dans un tableau