alertes formation....

Sub travdemande()
Dim i As Long
Dim j As Long
Dim cellule As Range
Dim lidep1 As Long
Dim nomfeuille1 As String
Dim col1 As String
Dim lidep2 As Long
Dim nomfeuille2 As String
Dim col2 As String
Dim data1 As String
Dim date1 As Date
Dim date2 As Date
Dim date3 As Date
Dim date4 As Date
Dim nb1 As Integer
Dim nb As Integer
Dim trouve As Boolean
'**********************************
nomfeuille1 = "Feuil1"
col1 = "a"
lidep1 = 2
nomfeuille2 = "Feuil3"
col2 = "a"
lidep2 = 2
j = 2
'************************************
date1 = Format(Now, "dd/mm/yyyy")
 
Sheets(nomfeuille2).Range(Sheets(nomfeuille2).Cells.SpecialCells(xlCellTypeLastCell).Address(0, 0)).ClearContents
With Sheets(nomfeuille1)
For Each cellule In .Range(col1 & lidep1 & ":" & col1 & .Range(col1 & "65536").End(xlUp).Row)
 
     For i = 2 To .Range("IV1").End(xlToLeft).Column
        If IsDate(cellule.Offset(0, i - 1).Value) Then
            date2 = cellule.Offset(0, i - 1).Value
            If date2 > date1 Then
                 nb = Month(date2 - date1)
                If nb < 3 Then
                    Sheets(nomfeuille2).Cells(j, 1) = cellule.Value
                    Sheets(nomfeuille2).Cells(j, 2) = .Cells(1, i)
                    Sheets(nomfeuille2).Cells(j, 3) = cellule.Offset(0, i - 1).Value
                    j = j + 1
                End If
 
            End If
        End If
    Next i
 
Next cellule
End With
End Sub