Bonjour
Il faut d'abord enlever: If lig > 34 Then Exit Sub (en début de macro)
ensuite le but est de dire à l'ordi ou ce trouve la colonne correspondante.
Donc pour l'instant on devait traiter que les colonnes
Maintenant on va traiter aussi les lignes
Case Is = 4
Select Case lig
Case Is < 15 'matin 1° tableau
moncol = 22
Case lig > 14 And lig < 26 'am
moncol = 23
Case lig > 25 And lig < 35 'nuit
moncol = 24
Case lig > 37 And lig < 68 'matin tableau 2
moncol = 43
ect...
End Select
Case Is = 6
Comme tu le vois dans une commande case on remet une autre commande select case
Le but étant de dire à l'ordi les personnes qui sont de quart ce jour là sont dans cette colonne là...
Il faut aussi enlever
If lig > 25 Then moncol = moncol + 2
If lig > 14 And lig < 26 Then moncol = moncol + 1
Puisque maintenant on doit préciser pour chaque ligne...
A+ François