Bonjour,
Lol ! Thautheme..
C'est un exercice pour un examen scolaire ou pour votre apprentissage personnel ?
Cette question parce que se former en démarrant sur vos questions et de surcroit pour réaliser un planning n'est pas le meilleur chemin pour apprendre VBA.
Bien que le forum soit un lieu d'aide, si vous voulez apprendre VBA, je vous suggère en premier d'avancer personnellement en utilisant éventuellement l'enregistreur automatique d'excel et de posez vos questions sur vos problèmes rencontrés.
Autre question : Vous travaillez sous MAC je pense ?
Afin d'éviter au max les Select et Selection, votre sub grise peut être simplement celle-ci
Sub grise()
Sheets("EDT").Range("B6:H6,G2:H14,E13:E14").Interior.Color = RGB(200, 200, 200)
End Sub
Pour votre code num_col, il sera plus lisible comme ceci
Public Function num_col(jour As String)
Select Case jour
Case Is = "Lundi": num_col = CInt(Range("B1").Column)
Case Is = "Mardi": num_col = CInt(Range("C1").Column)
Case Is = "Mercredi": num_col = CInt(Range("D1").Column)
......
......
End Select
End Function
Quand c'est possible, essayez d'éviter les IF THEN dans un code, c'est toujours moins lisible lorsqu'il y en a de trop
Cordialement