Valeur par defaut dans cellue si elle est vide

Sub remplir2()
Dim cel As Range, DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For Each cel In Sheets("Feuil1").Range("H2:H" & DernLigne)
If cel.Value = "" Then cel.Value = "En cours"
Next cel
End Sub

Private Sub Worksheet_Activate()
Call poser_lettre
End Sub

Sub poser_lettre()
Dim J As Long
Sheets("Feuil1").Select

  For J = 16 To 11 Step -1
     If Range("BB" & J) = "" Then Rows(J).Range("BB1") = "En cours"
  Next J
 
  For J = 32 To 22 Step -1
     If Range("BB" & J) = "" Then Rows(J).Range("BB1") = "En cours"
  Next J
End Sub