hélas non mais voici la macro en entier si jamais cela peut être utile
merci à vous en tout cas
Sub VerifCommentaires()
Dim fa As Worksheet
Dim fr As Workbook
Dim tablopa()
Dim iP, ir, Rep As Integer
Set fa = Worksheets("Projects")
Set fr = Workbooks.Open("\\Nas-01\CCE\OFFICE\Reports&Comments.xlsm")
Set fr = Workbooks("Reports&Comments.xlsm").Sheets("Feuil1")
tablopa = fa.Range("C1:C" & fa.Range("C" & Rows.Count).End(xlUp).row)
tabloPc = fa.Range("N1:N" & UBound(tablopa, 1))
TabloR = fr.Range("A5:F" & fr.Range("F" & Rows.Count).End(xlUp).row)
For iP = 2 To UBound(tablopa, 1)
For ir = 1 To UBound(TabloR, 1)
If TabloR(ir, 2) = tablopa(iP, 1) Then
If TabloR(ir, 6) <> "" Then
If tabloPc(iP, 1) = "" Then
Rep = MsgBox("Pour Acronyme: " & tablopa(iP, 1) & ", il n'y a pas de " & _
" commentaire sur le fichier Projet alors que sur fichier " & _
" rapport, il est :" & Chr(13) & "'' " & TabloR(ir, 6) & " ''" & Chr(13) & _
"Voulez-vous le réporter sur la base de donnée ?", 20)
If Rep = 6 Then 'oui
tabloPc(iP, 1) = TabloR(ir, 6)
End If
ElseIf tabloPc(iP, 1) <> TabloR(ir, 6) Then
Rep = MsgBox("Pour Acronyme: " & tablopa(iP, 1) & ", sur le fichier " & _
"Projet on a le commentaire :" & Chr(13) & "'' " & tabloPc(iP, 1) & _
" ''" & Chr(13) & " alors que sur le fichier Rapport on a :" & Chr(13) & _
"'' " & TabloR(ir, 6) & " ''" & Chr(13) & "Voulez-vous réporter sur la base de donnée " & _
"sur la base de donnée?", 20)
If Rep = 6 Then 'oui
tabloPc(iP, 1) = TabloR(ir, 6)
End If
End If
End If
End If
Next ir
Next iP
fa.Range("N1").Resize(UBound(tabloPc, 1), 1) = tabloPc
fa.Activate
Generate_Reports.Reports