Sub FacturatioNvelle()
'
[J3].Select
' Est-ce réellement utile ??? Le contenu de J3 (de quelle feuille ?) est-il utilisé dans la macro "RétabliMenu" ?
RétabliMenu
Sheets("Dr House_Raissa").Visible = True
Sheets("Facture").Visible = True
[AF4].FormulaR1C1 = "08/08/2023"
' Pourquoi "08/08/2023" ? Est-ce normal que ce soit une valeur fixe ?
[AB4].FormulaR1C1 = "=COUNTA(R[4086]C[-27]:R[19996]C[-27])"
' Pourquoi 19996 ?
' Sélection des lignes vides à partir de la ligne 7, en utilisant .end(xldown)
Range("A7:L" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
' Es-tu sûr que ça sélectionne vraiment les lignes vides à partir de la ligne 7 ?
ActiveCell.Name = "MaCell" ' Nomme la cellule active
' Je crois qu'en fait ça nomme la premières cellule de la plage sélectionnée
Selection.AutoFilter
' C'est censé faire quoi ??? Activer le filtrage ? Désactiver le filtrage ? Dans quel but ?
[MaCell].Select
ActiveWindow.ScrollRow = Selection.Row
' Est-ce vraiment utile ?
' Formules en col ab-ae-bg
[MaCell].Select
' Est-ce vraiment utile de sélectionner la cellule active ?
Set CelDeb = ActiveCell.Offset(0, 27)
Range(CelDeb, CelDeb.End(xlDown)).FormulaR1C1 = "=IF(RC[-18]=""RdV Fait Facturé"",0,SUBSTITUTE(SUBSTITUTE(LEFT(RC[-17],10),"" "",""."",1),"" "",""."",1))"
Set CelDeb = ActiveCell.Offset(0, 31)
Range(CelDeb, CelDeb.End(xlDown)).FormulaR1C1 = "=IF(RC[-4]=0,"""",IF(R4C-RC[-4]>0,RC[-30]&"" - ""&RC[-31],""""))"
Set CelDeb = ActiveCell.Offset(0, 58)
Range(CelDeb, CelDeb.End(xlDown)).FormulaR1C1 = "=IF(RC[-27]<>"""",1,0)"
' Est-ce normal de ne pas recopier les différentes formules sur le même nombre potentiel de lignes ?
' Copie valeurs dans facture
ActiveCell.Offset(0, 27).Resize(1, 32).Select
Selection.Copy
' Les ".Select" et "Selection." sont-ils vraiment utiles ?
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1000, 31)).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(1000, 31)).Copy
Sheets("Facture").Select
' Est-ce vraiment utile ?
Range("C73").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' Les ".Select" et "Selection." sont-ils vraiment utiles ?
Sheets("Appels").Select
' Est-ce vraiment utile ?
' col J
[MaCell].Select
Set CelDeb = ActiveCell.Offset(0, 9)
Range(CelDeb, CelDeb.End(xlDown)) = "RdV Fait Facturé"
Columns("AB:BG").ClearContents
Application.CutCopyMode = False
ActiveWindow.ScrollColumn = 6
' Est-ce vraiment utile ?
Range("A1").Select
' Copie RdV facturé dans Dr_House Raissa + contrôle nbr total de lignes
End Sub