Dix milles merci ça fonctionne très très bien !!!!
Voici le code final obtenu :
Sub Export_lignes_UT1_plan_actions()
'
' Export_lignes_UT1_plan_actions Macro
'Critère à filtrer
ActiveSheet.Range("$A$8:$R$33").AutoFilter Field:=17, Criteria1:="NON"
NbColB1 = Application.WorksheetFunction.CountA(Sheets("Plan d'action").Range("B:B"))
'Sélection de la colonne B obtenues après le filtre
Range("B20:B32" & Range("R65563").End(xlUp).Row).Select
Selection.Copy
Sheets("Plan d'action").Select
'Copiés/Collés des lignes dans la première ligne disponible de la colonne C
Range("C1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("UT 1").Select
'Sélection de la colonne D obtenues après le filtre
Range("D20
32" & Range("R65563").End(xlUp).Row).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Plan d'action").Select
'Copiés/Collés des lignes dans la première ligne disponible de la colonne B
Range("B1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("UT 1").Select
'Sélection de la colonne R obtenues après le filtre
Range("R20:R32" & Range("R65563").End(xlUp).Row).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Plan d'action").Select
'Copiés/Collés des lignes dans la première ligne disponible de la colonne B
Range("E1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("UT 1").Select
Range("Q8:Q9").Select
'Retire le filtre appliqué sur la feuille UT 1
ActiveSheet.Range("$A$8:$R$33").AutoFilter Field:=17
ActiveWindow.SmallScroll Down:=-9
Range("A8:A9").Select
NbColB2 = Application.WorksheetFunction.CountA(Sheets("Plan d'action").Range("B:B"))
NbLignesAjoutées = NbColB2 - NbColB1
MsgBox "Ajout de " & NbLignesAjoutées & " ligne(s) au plan d'action"
End Sub
Ce qui ressort en gras, ce sont le rajout des lignes de codes que vous m'avez donné précédemment et j'ai modifié le MsgBox.
Encore merci et bonne journée