Cave à vins ( avec macro) 2018-03-08

Sub HAUTgauche()
    Application.ScreenUpdating = False
    On Error Resume Next
    Application.GoTo reference:=Sheets("HAUT Gauche").Range("A1"), Scroll:=True
    [A1].Select
End Sub

Sub HAUTdroite()
    Application.ScreenUpdating = False
    On Error Resume Next
    Application.GoTo reference:=Sheets("HAUT Droite").Range("A1"), Scroll:=True
    [A1].Select
End Sub

Sub BASgauche()
    Application.ScreenUpdating = False
    On Error Resume Next
    Application.GoTo reference:=Sheets("BAS Gauche").Range("A1"), Scroll:=True
    [A1].Select
End Sub

Sub BASdroite()
    Application.ScreenUpdating = False
    On Error Resume Next
    Application.GoTo reference:=Sheets("BAS Droite").Range("A1"), Scroll:=True
    [A1].Select
End Sub

Sub CENTRE()
    Application.ScreenUpdating = False
    On Error Resume Next
    Application.GoTo reference:=Sheets("CENTRE").Range("A1"), Scroll:=True
    [A1].Select
End Sub

Sub AfficherCave()
On Error Resume Next
SupprimerLesFiltres
If Sheets("Déroulants").Range("J2") = "" Then
  MsgBox "Pas de casiers créés", vbInformation, "AUCUN CASIER"
  Exit Sub
End If
If Sheets("Localisation").Range("A2") = "" Then
  MsgBox "Cave vide", vbExclamation, "CAVE A CRÉER"
  Exit Sub
End If
Application.ScreenUpdating = False
UserFormCasier.Show
RafraichirTCD
Application.GoTo reference:=Sheets("Menu").Range("A1"), Scroll:=True
On Error GoTo 0
End Sub

#If VBA7 Then
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

#If VBA7 And Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub GestionDesFeuillesCasiers()
   ...
                For Each cellule In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
                    ...
                      .Cells(cellule.Offset(0, 10) + 3, cellule.Offset(0, 11) + 1) = _
                                cellule & Chr(10) & _
                                cellule.Offset(0, 1) & " - " & cellule.Offset(0, 3) & " de " & cellule.Offset(0, 4) & Chr(10) & _
                                cellule.Offset(0, 2) & Chr(10) & _
                                "Acheteur : " & cellule.Offset(0, 19) & Chr(10) & _
                                "Cote : " & cellule.Offset(0, 20) & Chr(10) & _
                                cellule.Offset(0, 23) & " - DLC : " & cellule.Offset(0, 6) & Chr(10) & _
                                cellule.Offset(0, 14)
                       ...
                    End With