Sub Macro4()
Application.ScreenUpdating = False
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim CalculSem As Variant 'varible pour calculer le nombre de semaine
Dim DateDeb As Date 'variable date de depart
Dim DateFin As Date 'variable de de fin
Dim i As Integer
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim NoCol As Integer
Set FL1 = Worksheets("Feuil1") 'instancier l'objet ici c'est la feuille1
With FL1
'Set Plage = .Range("A3:A" & [L65356].End(xlUp).Row) 'plage de travail sur la colonne A et L
'Plage.Offset(, 1).Resize(, 17).Interior.ColorIndex = xlNone 'éfface toutes les couleurs dans la feuille1
NoCol = 7 'N° de colonne
dl = .Range("G" & Rows.Count).End(xlUp).Row ' la dernière ligne utilisée de la colonne G
For i = 2 To dl ' boucle pour lire les valeurs de la colonne G
DateFin = .Cells(i, NoCol) ' date variant dans toute la colonne G
DateDeb = Range("J2").Value ' date de départ dans la cellule X2
'CalculSem = DateDiff("ww", DateDeb, DateFin, vbMonday) + 1
CalculSem = DateDiff("ww", DateFin, DateDeb, vbMonday) + 1
.Cells(i, 12).Value = CalculSem
Next i
Set FL1 = Nothing
Set Plage = Nothing
End With
Application.ScreenUpdating = True
End Sub