Remplir par un caractère des cellules vide d'une plage non connue

Bonjour Tout le monde

je ne pense pas que c'est complexe mais je sèche sur une macro.

Avec le tableau en PJ qui me permet de répertorier des pannes d'équipement de 2014 à 2033. J'essaie de faire un bout de macro qui permet de remplir les cellules vides par une croix (par exemple) à partir la première année où l'équipement est tombé en panne jusqu'à la dernière année où il est tombé en panne.

Ex sur le fichier un PJ. ligne 4 mettre une croix dans la cellule H4. Ligne 5 mettre une croix dans les cellules G5 et I5 etc...

Bonsoir Jonathan SOMNICA, bienvenue sur XLP ,

Essayez le code suivant dans module1 :

Sub XXX()
Dim t, i&, j&, j1&, j2&, k&, n&
   With Sheets("Synth.Réparation")
      If .FilterMode Then .ShowAllData
      t = Intersect(.Range("a1").CurrentRegion, .Columns("f:y"), .Range("a3:a" & Rows.Count).EntireRow)
      For i = 1 To UBound(t)
         For j1 = 1 To UBound(t, 2)
            If Trim(t(i, j1)) <> "" Then Exit For
         Next j1
         For j2 = UBound(t, 2) To 1 Step -1
            If Trim(t(i, j2)) <> "" Then Exit For
         Next j2
         For j = j1 + 1 To j2 - 1
            If Trim(t(i, j)) = "" Then t(i, j) = "X"
         Next j
      Next i
      .Range("f3").Resize(UBound(t), UBound(t, 2)) = t
   End With
End Sub