Sub Decalage_semaine()
Dim SEM As Integer, Iligne As Integer
Dim rep As Long, lastlig As Long, nblignestot As Long, sautlign As Long, nbligne As Long
Dim tempsrestant As String
lastlig = Sheets("salaries").Range("A1000").End(xlUp).Row
nbligne = lastlig
'On calcule tout d'abbord la semaine en cours
SEM = WeekNumber(Now)
'On vérifie que l'on a bien passé une semaine
If Sheets("Temps").Range("M3").Value = SEM Then
MsgBox ("Le planning est déjà affiché pour la semaine" & SEM)
rep = MsgBox("Voulez vous tout de même forcer l'actualisation du planning?", vbYesNo)
If rep = 6 Then GoTo Decale
Else: GoTo fin
End If
[COLOR="Red"] ElseIf MsgBox("Le fait de décaler la semaine, va déplacer les tableaux et donc effacer les valeurs dans le tableau de la semaine passée." + Chr(10) + "Cette action est irrémédiable.", vbYesNo + 256, "Attention: Décalage des semaines") = vbYes Then[/COLOR]
: Decale
'Structure du programme
: fin
End If
End If
End If
End Sub