Sub saisie_journée_complète()
' Petite macro qui permet de saisir des journées complètes automatiquement
Dim ListeValide As String
ListeValide = "B12;B15;B17;B19;B21;B23;B25;B27;B29;B31;B33;B35"
Dim adresseCell As String
adresseCell = Replace(ActiveCell.Address, "$", "")
If InStr(1, ListeValide, adresseCell) > 0 Then
Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 97)) = 1
Run ("envoi_au_tableauxbdd")
Else:
MsgBox "Veuillez selectionner une cellule valide"
End If
End Sub