Bonsoir,

J'ai pu obtenir ce code dans ce forum que j'ai un peu adapté et qui m'a bien aidé. J'aimerais cependant encore mieux l'adapter mais je n'y arrive pas. Ce script permet le transfert de certaines données d'une feuille vers une autre mais j'aimerais y intégré un message d'erreur s'il y a doublon (colonne A)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, derLig As Integer, lignVide As Integer
If Target.Column <> 12 Then Exit Sub
derLig = Range("A" & Rows.Count).End(xlUp).Row
 
If Target.Row <> derLig Then Exit Sub
If ActiveCell = "RP" Then
'il y a 7 valeurs à transférer
v1 = Cells(derLig, 1): v2 = Cells(derLig, 2): v3 = Cells(derLig, 4)
v4 = Cells(derLig, 8): v5 = Cells(derLig, 9): v6 = Cells(derLig, 11)
'Ouvrir la feuill GM
Sheets("GM").Activate
Worksheets("GM").Unprotect Password:="XENNA"
 
'Recherche de la première ligne vide
lignVide = Sheets("GM").Range("A" & Rows.Count).End(xlUp).Row + 1
'Copie des valeurs dans la feuille active
With ActiveSheet
    .Cells(lignVide, 1) = v1 
    .Cells(lignVide, 2) = v3
    .Cells(lignVide, 4) = v6
    .Cells(lignVide, 5) = v2
    .Cells(lignVide, 8) = v4
    .Cells(lignVide, 9) = v5
End With
 
 
Worksheets("GM").Protect Password:="XENNA"
End If
 
 
End Sub
Merci !